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GENERAL INFORMAT.. » 


THIS DIAGNOSTIC IS A LOGIC TEST TO VERIFY THE open tion 4 THE 
DL1l-W SERIAL LINE’ REAL TIME CLOCK INTERFACE. THE PROGRA 

WILL RUN WITHOUT ANY SPECIAL TEST FIXTURES BY DEFAULT. HOWEVER, A WRAP 
CASLE CAN BE USED AND TESTED BY OPTION (BIT? OF SWR). 


ts TEST OPERATES ON THE CONSOLE DL11-wW SERIAL LINE AND CLOCK at times 
SWELL AS UP TO FIFTEEN(1S) ADDITIONAL IDENTICALLY CONFIGURED DL11 
SERIAL The INTERFACES. THE DEFAULT ADDRESSES ARE: 


R. CONSOLE - ie S60 SERIAL LINE 
778546 =CLOCK 


B. OTHER SERIAL LINE - 776500 FIRST SERIAL LINE ADORESS 
OF 15 CONSECUTIVE SERIAL 
LINE ADDRESSES 


ae PROGRAM IS DESIGNED TO RUN +8 ANY POP-11 gy fi 8K OF MEMORY 


_ ND BR DL1I-W MODULE. IT CAN BE RUN UNDER XXDP,APT, AND ACT MONITORS, 


ANS _ON PROCESSORS WITH NO HARDWARE SuITCe REGtSTER, 
SOFTWARE SWITCH REGISTER = LOCATION 176 


POWES FAILURE IS SUPPORTED FOR SYSTEMS WITH CORE MEMORY. 
NCTE: THIS DIAGNOSTIC WITH THE SWR = 000020° 
tht OCK TESTS ONLY } SHOULD BE USED ON SWITCHLESS ¢ u's 
TEST KWellL LINE CLOCK MODULES. 


SYSTEM REGUIREMENTS 


ALi? ad 
EGLIEMEN 

ee rote Rose FF 1 Fo A AAe - eS? w- 
3 RNOARG od FRMILY COMPLTER A'ifh CONSOLE OUTPUT DEVICE 
BND SK OF MEMORY. 

-?re- -- 

STORAGE 

THE PEOSGRRM USES MEMORY FROM 00009 To 22372 


ara = 
woud 


fo 


mw 


mw 


DO1 


a. IF THE UNIT UNDER TEST (UUT) IS THE CONSOLE , THE PROGRAM WILL 
ASSUME THE REAL TIME CLOCK (RTC) IS ENABLED AND WILL TEST IT 
UNLESS THE TESTS ARE DISABLED BY BITS OF THE S 


8. IF THE UUT IS NOT THE CONSOLE, THE RTC IS NOT TESTED FOR THAT DEVICE. 


v. THE PROGRAM WILL_ASSUME THE ERROR FLAG BITS AND THE rai FUNCTION 
OF THE DL11-W ARE DISABLED AND WILL NOT TEST THESE FUNCTIONS 
UNLESS ENABLED BY BIT1O (FOR ERROR FLAGS) AND 8178 (FOR BREAK) 
OF THE SWR. THE DEFAULT CHARACTER SIZE IS 8 BITS (SEE PARA 2.3.2). 


OPERATING INSTRUCTICNS x 


USE STANDARD PROCEDURE FOR PDP-i1 ABSOLUTE BINARY FORMATTED TAPES. 


STARTING PROCEDURE : 
LOAD THE SWITCH REGISTER WITH SETTING 
(SOFTWARE SWITCH REGISTER LOCATION = 176) 


AR. START AT 200. 
AFTER CHECKING THE TRANSMITTER, THE PROGRAM WILL PRINT ITS IDENTIFICATION 
AND REPORT THE NUMBER OF Devices UNDER TEST (NUMBER IS OCTAL) 
eee rarer IS PRINTED AFTER A FULL PASS HAS BEEN MADE ON ALL DEVICES 


8. START AT 204. 
THE “ECHO” TEST WILL BE EXECUTED. AN “*” IS PRINTED AT THE 
BESINNING OF THE TEST. THE ECHO TEST READS A CHARACTER FROM 
THE TERMINAL WRITES THAT CHARACTER TO THE TERMINAL AND 
REPORTS ANY ERROR FLAGS SET IN THE RECEIVER UFFER, 
A CONTROL-C HALTS THE TEST AND PRINTS “STOP” BT THE TERMINAL 
CONTINUING RESTARTS THE ECHO TEST. 


Cc. Lag! AT 210. ‘ 
THE TERMINAL OUTPUT TEST WIL BE EXECUTED. DEPRESSING ne. “ee 


ie TEST CUTPUTS 3e tRARAETERS ON-A LINE AND REPEATS THE 
TTERN EVERY THREE LINES. THE PATTERN IS AS FOLLOWS 
rotTaL CODE C40 --) 577): 


(OCTaL CODE) 


2" e$%8° ()#+,-./0123456789: : <=>” (ONG <=) O77) 
shot SEF Gui TK MNOPGRETUvuxvs! «It (Og <-> 137) pithy led amy Sa 
sabcdefghijykimnopgrstuvwry2i! (140 <-> i177) [LOWER CASE ALPHA] 


THIS BOTTOM LINE COULD BE THE FOLLOWING IF THE TERMINAL 
DOES NOT HAVE LOWER CASE: 


BRE CDEP GHIJKLMNOPGRSTUVWXYZ[ [UPPER CASE RLFHS] 


(aa) 
Oo 
ia) 


—swee 


EO] 


OPERATING PROCEDURE 


NOTE: IF NO HARDWARE SWITCH REGISTER IS AVAILABLE i PROGRAM 
WILL AUTOMATICALLY USE THE CONTENTS OF LOCATION 
te AS THE SOFTWARE SWITCH REGISTER. THE Weer SHOULD 
SET THIS LOCATION BEFORE STARTING THE PROGRAM. IF A 
HARDWARE SWITCH IS AVAILABLE AND A SOFTWARE air IS 
DESIRED, PUT ALL SWITCHES UP. 


HALT ON ERROR 


BITIS - 
BIT15 - SCOPE LOOP 

Bitl3 - INMIBIT ERROR TYPEOUT 

SiT12 - UNUSED 

BITLI - UNUSED 

81710 - ENABLE ERROR FLAGS TESTS 

peer - LOOP ON ERROR 

eitos - ENABLE BREAK FUNCTION TESTS 

BIT0° - ENABLE DATA TEST WITH WRAP CABLE 

BITGé - INMIBIT RTC TESTS (ALLOW ONLY SLU TESTS) 

S755 - ALLOW MANUAL SETTING OF “SDEVM™ (DEVICE MAP) 
eirts - INHIBIT SLU TESTS (ALLOW ONLY LINE CLOCK TESTS) 


EUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY CHANGE THE 
CONTENTS OF SWREG DURING PROGRAM. EXECUTION. BY STRIKING tG 
‘ENTL G)_ON CONSOLE TTY. alt, OFERA R SETS A REQUEST FLAG TO CHANGE 
THE CONTENTS OF SWREG HIGH IS PROCESSED IN KEY RRER RS OF THE PROGRAM 
COBE CTE) ERROR ROUTINES, AFTER HALTS END OF P D OTHER 
APPLICABLE AREAS. BECAUSE THIS DIAGNOSTIC USES o Fae MAIN NTENANCE B17 
oF THE SE LINE, THE CONTROL-G SHOULD BE ISSUED DURING PROGRAM 
TYPEOUTS AT THAT TIME THE MAINTENANCE BIT IS SURE TO BE CLEAR. 


IF ao ONTROL=S | 1§ PETECTED UPON EXECUTION THE CONTENTS OF THE SWREG ARE 
UMPED IN SCTAL ON THE CONSOLE TTY AND ANY CHANGES ARE REQUESTED 


(TE) SWR=XXXXXX NEW= 


F NO CHANGES ARE TO BE MADE 

0 tae oe IN ec Te. THE NEW 1 Seat REGISTER 
BLUE {LAST DfGiT FOLLOWED BY ” fe 
2 Al LL Oi a Been TERING VALUE IF ERROR’ TS COMMITTED 
(E* if ‘ING IN SWREG VALUE. 


i. I 
g. &é OIGITS 0-7 T 


( 
™, -—4<_ 


‘suas 
wow? 


FOL 


PRGE: O005 


2.3.2 SETTING BITS PER CHARACTER 


SAAT OTT Se, 
THIS PROGRAM fet ote TO TESTING 8 BITS PER SHERAL TSM IF THE 
SERTAL LINE IS SET FOR S-->? BITS PER CHARACTER, SET THE 
MEMORY LOCATION SUSUR” AS FOLLOWS: 
CHAR. SIZE “SUSWR” CONTENT Fo 
(es OF BITS) (BINARY) (OCT 
g 100000009 400 
? 019000908 200 
6 001000009 100 
S 000190000 40 
"SUSWR” IS USED IN THE DATA PATH TESTS TO LIMIT iy ald 
COUNT TEST PATTERN TO THE NUMBER OF BITS SELECTED ON THE 
SERIAL LINE 
=.3.3 RUNNING UNDER APT 


THE APT MAILBOX IS LOCATED AT LOCATION S00, TO ALLOW ADDITIONAL SERIAL 
LINE VECTOR ASSIGNMENTS TO THE 400 AREA OF MEMORY 


he tetey ON wate Rett di ARE FOR EXECUTION WITH AN 11/34 PROCESSOR, 


-v + iat 6 RY, BND 110 


cd. 


fe 
to 
= 


—e ee 


GOl 


RUN WITH ALTERNATE CONSOLE ADDRESS 
TO USE A CONSOLE RODRESS OTHER THAN 177560, OR vEC TOR OTHER 
THAN 60, THE OPERATOR MUST SUPPLY THE PROGRAM 
CORRECT ADDRESSES ay INSERTING THEM A e TAG TABEL Fo "CRCSR": 
CRCSR: AD OF ER 


CRPSW: ADDRESS OF ASSOC! W 
CTVECT: ADDRESS OF TRANSMITTER VECTOR 
CTPSW: ADDRESS OF ASSOCIATED PSW 


ESTING ADDITIONAL SERIAL LINES 

S PROGRAM WILL SUPPORT Feet TNS OF MULTIPLE SLU°S. IT REQUIRES 
te "ADDRESS OF THE FIRST ADDITIONAL RCS ee AT “$BASE") ANC 
[TS INTERRUPT VECTOR (STORED AT “SVECT1"); AND WILL BE ABLE 
TO ADDRESS ANY SLU STARTING AT THE SSECIFiED BASE SDBRESS UP TO 
& CONSECUTIVE DEVICES. 


EXAMPLE: gen: 776500 
$VECT1: 300 


THE PROGRAM WILL BE aBie TO TEST THE CONSOLE PLUS ANY 
ACOITIONAL OLil-W SLU’S WITHIN THE RANGE 776500 --> 776650 


BASE AND SVECTi DEFAULT TO 776500 AND 300 RESPECTIVELY. 


THE epi nek ASSOCIATES UNIT a TO DEVICES AS FOLLOWS: 
NUMBERS IN PARENTHESIS ARE OCTAL) 


UNIT® 0 --> CONSOLE [ADDRESS STORED AT "CRCSR™] 
UNIT# 1 --> BASE Oper oe STORED AT “$BA 
‘Tta 2 ASSOCIATED B ASE NBCTOR § STORED AT"SVECT 
UNIT® 2 --» BRSE ADDRESS 
BASE VECTOR + "10 
UNIT# 3 --> BASE ADDRESS + (20) 
Pi BASE VECTOR + (20) 
UNIT# 4 --) BASE ADDRESS + (30) 
BASE VECTOR + (30) 


HO 1 


ARTING AT LOCATION 200 AND HAVING BITS OF SWR CLEAR, THE PROGRAM WILL SELF 
ze iy os e DEVICES (STARTING AT THE BAS ADDRESS) AND 
rORE_A BIT M T “SDEVM" (DEVICE MAP) TO INDICATE WHICH UNIT NUMBERS 
RE PRESENT BND WILL BE TESTED: 


Duiwwn 
A)- 40-4 —4 


CAN BE ee AT “SDEVM" PRIOR TO STARTING THE oon 
ITS OF THE SWR INHIBITS THE SELF-SIZING AND DEVICE M 
N,AND USES THE VALUE STORED BY THE OPERATOR. 


XAMPLE: 


Suk = 00040 [BINARY 9 COO O00 O00 10¢ 000) 
SEASE: 776500 
SVECTI: 300 


1 
a 


ern 
miry 


‘ap 
38 
10 
E 


SOEVM: 13 [BINARY - G 00C 090 000 001 0111) 
THE PROGRAM WILL TEST = 

UNTT# O = CONSOLE 

UNIT# 1 = 776500 ; 300 

UNIT@ 3 = 776520 ; 320 


PAGE: 


0067 


fe 
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EXECUTION TIMES - (110 BAUD) 


ere TIME 
ADDITIONAL DEVICES 


SO SECONDS 
60 SECONDS 
5S SECONDS DEVICE 


ERROR REPORTING 
IF A ROUTINE FAILS AND THE INHIBIT ERROR TYPEOUT (BIT13) OF THE SUR 
IS NOT SET, A PRINTOUT RESULTS IN THE FORM: 


mete ASCII_MESSAGE )” 
TEST ERR PC = RCSR [ANY APPLICABLE DAT HEADINGS] 
XKRKXK XXXXXX  XXXXXX [ANY APPLICABLE DATA] 


NOTE: “RCSR" IS DEPENDENT ON THE FAILURE 
& THEREFORE COULD BE TCSR,RBUF,TBUF,OR LKS 


WHERE _"XXXXXX"_ 1S AN cca NUMBER. 
HIS ERROR Ten he OCCURS PROVIDED THE ERROR THAT EXISTS 
WOULD NOT H EOUT. IN CASES WHERE IT IS NOT POSSIBLE 
qR . PRINT aN “ERROR MESSAGE (1.£. FATAL CONSCLE TRANSMITTER 
AILURES) HALT OCCURS AND THE PC CAN BE EXAMINED BY THE OPERATOR 
a: “FIND the” ERROR INFORMATION IN THE PROGRAM LISTING. 


NOTE: Soe > ey SWITCH OPERATION, THE SWITCH REGISTER CA ’ 
BEC HANGER BY TYPING A_CONTROL-G AT. THE THe Ob SA DURING 5 geo PRINTOUTS. 
BETER CONTINUING FROM THE ERROR HALT THE 0 7 © v0 

IS DISPLAYED AND THE NEW CONTENTS CAN BE ENTE 

IF ERROR HALTS ARE DISABLED, THE ONTROL-G RESPONSE OCCURS 

IMMEDIATELY FOLLOWING THE TYPEOUT. 
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SUBROUTINE ABSTRACTS 


THIS IS A SERIES OF INSTRUCTIONS STARTING AT LOCATION 0 DESIGNED TO 
Ap RS ae UNEXPECTED TRAPS TO THE TRAP AND INTERRUPT VECTOR 


EACH VECTOR ENTRANCE ADDRESS IS LOADED WITH THE ADDRESS OF THE NEXT 
Sey THE NEXT LOE Te fe LOADED WITH @ BREAK POINT TRAP (000003). 
THUS AN ILLEGAL TR AP 6 UPT "iam A TRAP THROUGH THE BPT VECTOR( 14) 


WHICH POINTS TO THE SATCH” ROUTINE 


THE “CATCH” ROUTINE REPORTS THE PC_THAT wd oe ORIGINAL TRAP AND 
THE LOCATION OF THE TRAP VECTOR (IF UNDER A N ERROR IS INDICATED TO _APT?. 
om hae Point THE ERROR THE PROGRAM HALTS. “hE PROGRAM MUST BE RESTARTED 


THIS ROUTINE IS USED TO WRITE THE PSW BY POPPING VALUES FROM THE 
paceecnne> METHOD IS USED TO BE COMPATIBLE WITH ALL 11 FAMILY 


RE 
TEST AT WHICH THE SCOPE LOOP IS ceeTeD, ED. 


0003 


qo: 


wy 


a 


KOL 


*b ROUTINE CALL IS PLACED WHEREEVER AN ERROR REPORT 


Spy ae oe 


YPE” AND TYPES E THE CONSOLE 
USING “SERRTYP 


SPOWER 

THIS ROUTINE SAVES ALL GENERAL R GIS IER DUR he POWER- a 

wi RESTORES THEM AT POWER-UP. IF A POWER FAILURE OCCU 
POWER” IS PRINTED AT THE CONSOLE AFTER POWER IS RESTORED. 


THIS ROUTINE CALL IS USED TO DETECT THE oer en OF A B -G 
FROM THE CONSOLE. THE CALL USES “SREAD” TO PERFORM THE CONTROL-G 
SEQUENCE OF DISPLAYING THE CONTENTS OF THE SOFTWARE SWITCH REGISTER 
AND THE ENTERING THE NEW CONTENTS FROM THE TERMINAL. 
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900011 
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900000 
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190009 


002000 
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- ENABLE ABS 
“NLIST MC,MD,CND 


.SBTTL BASIC DEFINITIONS 
ao, OF THE STACK POINTER ##* 1100 ### 


STACK= 
:;BASIC DEFINITION OF ERROR CALL 


-EQUIV EMT,ERROR 
-EQUIV I0T,SCOPE ;;BASIC DEFINITION OF SCOPE CALL 


; MISCELLANEOUS DEFINITIONS 


HT= 11 :CODE FOR HORIZONTAL TAB 
LF= le ::CODE FOR LINE FEED 
CR= 15 53 FOR CARRIAGE RETURN 
CRLF= 200 ::CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 ::PROCESSOR STATUS WORD 
.EQUIV PS.PSW 
STKLMT= 172774 ;;STACK LIMIT REGISTER 
PIRQ= 177772 PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 ::HARDWARE SWITCH REGISTER 
DDISP= 177570 : :HARDWARE DISPLAY REGISTER 
-¥GENERAL PURPOSE REGISTER DEFINITIONS 
Ro= “0 ;;GENERAL REGISTER 
Ri= “1 RAL REGISTER 
R2= “2 :GENERAL REGISTER 
R3= “3 :GENERAL REGISTER 
R¥= “4 33 RAL R 
RS= “S ::GENERAL REGISTE 
Rb= %~% ::GENERAL REGISTER 
R?= “2 GENERAL REGISTER 
SP= %6 ;:STACK PO 
PCs “7 :: PROGRAM COUNTER 
-*PRIORITY LEVEL DEFINITIONS 
PRo= :;PRIORITY LEVEL 0 
PRiz 40 ::PRIORITY LEVEL 1 
PRe= 100 ::PRIORITY LEVEL 2 
PR3= 140 ::PRIORITY LEVEL 3 
PR4= 200 ::PRIORITY LEVEL 4 
PRS= 240 ::PRIORITY LEVEL 5 
PRE= =s-«-33000 ;;PRIORITY LEVEL 6 
PR7= 340 ::PRIORITY LEVEL 7 
-*"SWITCH REGISTER” SWITCH DEFINITIONS 

15= 100 
SwWi4= 400 
Suwig= 20000 
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AND OTHER ERRORS 
: RES SERVED AND ILLEGAL INSTRUCTIONS 


“i TRAP (BPT) 


TPUT TRAP 


AT > 
‘ 


. ~ 


) ##5COPEee 


oz 


.MAIN. 


MACY LI ha 


DZDLDB. Pl} s 


*>-+ 0-* b= b+ + b+ = b+ Bo Be Be 


LILILIGITUTUTUTUTOTUTUTUTUTU & 0 & + 9 -+ » = 0 0 


(OBS IRA Ze 


+e +6 


ee eee ee ee ek ee ed ee ed 
ss 
tore 


~2>-<b-* 
+ he 
wn 


*O WD IM U1. Gotu CO. .000™ IO ULE Go 


COoC14 
Ooocis 


ooot4e 


990174 
005176 


000200 
202204 


0992! ow 


000003 


* oG0o00 


aoe 


OCOO4e 
800000 


000i74 
OS0S00 
o0000C 
000200 


tE> 


ooo1g7 


14-JUN-77 17:10 
09:27 


PWRVEC= 24 

EMTVEC= 30 

“ TRAPVEC=3 
rveKs 


PVEC= ey 
PIRGVEC=e4G 
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SSWR= 
BPT= 
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BASIC DEFINITIONS 


= 448500 


161000 
000003 


; POWER FAIL 
:"TRAP” TRAP 


saTTy KEYBOARD VECTOR 
;; TTY PRINTER VECTOR 
:;PROGRAM INTERRUPT REQUEST VECTOR 


;THIS IS THE COMMAND FOR he TRAP 
: THROUGH 14 (BPT TRAP 


=0 
; HOHAAEEEHOEEOOERESESOREAOREERRELOSELORESEREEOSESOSS ESS ESIOEY 
; FALL UNUSED LOCATIONS FROM 4-776 CONTAIN A 7 +22, BPT 


EQUENCE 


TO CA 


TCH ILLEGAL TRAPS 8 INTERRU 


3#S 
:#LOCATION O CONTAINS O TO CATCH IMPROPERLY TOROED VECTORS 


214 
. WORD 
. WORD 


"WORD 


DISPREG: “WORD 
SWREG: ° WORD 
=200 


CATCH 
340 


;THE BPT TRAP VECTOR POINTS TO a 
: ILLEGAL TRAP HANDLER “CATCH 


29 INTEREACE TEST 
30 GUTPUT TEST TO TERMINAL 


(i. 
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DEFINITIONS 


.= 500 
-SBTTL ACT11 HOOKS 


+ SESSKSSSRSRESERAAR AAA SARA SERRA ESSA ALAL ERA LSLSLAARELFLFLFAAELEL 
: HOOKS *ievecs, BY ACTL1 


Sve SAVE PC 
SENDAD +: 1)SET LOC.46 TO ADDRESS OF SENDAD IN .3E0° 
"WORD O : 32567 LOC. 52 TO ZERO 

RESTORE P 


+3 


. =$SVPC 
.SBTTL APT PARAMETER BLOCK 


Mieco rs 


SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
peaenonenennnannneneqneossnnenessesensneentemaneenrer er nneeren: 


T_UP 
TQ APT INDIRECT ARORESS PNTR. 
SAPTHOR HEPOINT TQ APT HEADER BLOCK 

=. $X RESET LOCATION COUNTER 
PeTTTTTTTTerrrtierrrreriserrseretrirrrertiittrt ttt ttrie tities. 
SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 


;;TWO HIGH BITS OF 18 BIT MAILBOX Ds se 


9 
SMBADR: .WORD $MAIL ;;ADDRESS OF APT MAILBOX (BITS O- 
$TSTM: .WORD 50 :;RUN TIM OF LONGEST TEST ; ee 
SPGSTM: .WORD 60 :¢RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT <Gulck VERIFY: 
SUNITM: .WORD 55 ; ADDITIONAL RUN TIME (SECS) OF A pace Be ‘EACH ADEITIONAL UNI 
-WORD = SETEND-$™ ATL 2 »: LENGTH MAILSOX-ETASLE (WORDS 


0O0e 
.MAIN. MACYLI Be te 14-JUN-77 17:10 PAGE S : PAGE: OOLE 
DrDLDS. Pil 4=JUN-77 03:27 COMMON TAGS > 
.SBTTL COMMON TAGS 


5 EERE ER ERR EEE REE E EER ERE EERE SEERA EE ERE RERERE ERAS SE LER ESSE ESE SS 
: STHIS TABLE yh VARIOUS COMMON STORAGE LOCATIONS 
:#USED IN THE PROGRA 


ae 


oy 


TU &< b+ b+ + b-+ + b= 9 = 
Bibee TnL toto to oe 


001000 .=1000 

001000 SCMTAG: ;;START OF COMMON TAGS 

001002 o00coo -WORD Q 

991092 pee S$TSTNM: .BYTE Q 3 CONTAINS THE rear NUMBER 

001083 020 SERFLG: .BYTE Q ;;CONTAINS ERROR F 

001904 000000 SICNT WORD Q ;; CONTAINS SUBTEST. ITERATION COUNT 
i 0& 000000 SLPADR: .WORD 0 ;;CONTAINS SCOPE LO 

001019 000000 $LPERR: .WORD © ;;CONTAINS SCOPE RETURN FOR ERRORS 
201 00 oo0oce SERTTL: .WORD 0 3s EONTARNS OTAL ERRORS DETECTED 
2 001014 000 SITEMB: .BYTE OQ ;;CONTAINS ITEM CONTROL B 
203 901015 001 SERMAX: .BYTE 1 ;;CONTAINS MAX. ERRORS PER TEST 
é 001016 00000 SERRPC: .WORD 9 ;;CONTAINS PC OF LAST ERROR INSTRUCTION 
295 0010e0 000090 $GD WORD 9Q ;; CONTAINS ADDRESS 0 00D" DATA 
206 000000 $BDADR: .WORD 9 $s CONTAINS ADDRESS roe *BAD’ DATA 
207 001024 9000000 $GDDAT: .WORD Q ;:;CONTAINS 'GO0D" 
208 901026 000000 $B8DDAT: .WORD 6 ;;CONTAINS *BAD’ 
e0$ 001030 c00000 WORD 9Q ; ;RESERVED--NOT TO BE USED 
2i0 O0iC3e 9000 «WORD Q 
2il 901034 000 SAUTOB: .BYTE OQ ;;AUTOMATIC MODE INDICATOR 
eie O001035 900 SINTAG: .BYTE OQ :; INTERRUPT MODE INDICATOR 
213 901036 000000 RD OQ 
2:4 901040 177570 . SWR OSWR ;;ADDRESS OF SWITCH REGISTER 
eiS 001042 17757 BISPLAY: WORD ODISP Bats, OF a rd REGISTER 
216 OO1044 177560 $TKS: 177560 Y KBD STA He 
217 9010 177562 $TkKS 177S6e itty KBO BUF 
218 9010 177564 $TPS 177564 PETTY BRINTER. éfa TUS REG. ADDRESS 
219 9010 177566 $TP 177566 3; TTY PRINTER BUFFER RES. ADDRESS 
220 901054 000 SNULL BYTE Q 3; CONTAINS NULL an ee FOR FILLS 
221 901055 O02 SFILLS: .BYTE @ iit TAINS ® OF FILLER CHARACTERS SEQUI5EC 
eze 001056 Sle SFILLC: .BYTE le ZINSERT FILL CHARS. AFTER A “LINE FEEO” 
223 001057 300 STPFLG: .BYTE 0 “TERMINAL AVAILABLE” FLAG (817<C?>=sl=rEs° 
2e4 001080 o00000 SESCAPE: 0 pea ON ERROR ADDRESS 
eeS 001062 O77 $QUES: .ASCII “?/ ;; QUESTION MARK 
e26 001063 O15 SCRLF: .ASCII <15> i i CARRIAGE RETURN 
ee? OC1064% O000le SF: ASCIZ <le> ;;LINE FEED 
228 vasgonubescescccsncnssnncnsousbianessossceavenneaecaseqnoosnees 
223 ‘ABTTL APT MAILBOX-ETABLE 
230 
g2) 1“ ghmrespaeesnneenconea lahat sarc sere sees serait hen Leste 
are ° V 
e33 902066 $MAIL: > ;APT WAILEOX 
e34 O01066 000000 SMSGTY: .WORD AMSGTY ‘i ieesa GE TYPE CODE 
235 901970 000006 SFATAL: .WORD AFATAL Fit ERROR NUMBER 
e236 O00i97e 000000 STESTN: .WORD ATESTN ;;TEST NUMBER 
e27 001074 009000 $PASS: .WORD APASS ;;PASS COUNT 
e228 901076 900000 SDEVCT: .WORD ADEVCT 5 DEVICE COUNT 
£29 001100 9000000 SUNIT: .WORD AUNIT 3170 UNIT NUMBER 
e409 001102 OOCO00 $MSGAD: .WORD  AMSGAD t IMESSAGE ADDRESS 
242 301104 O0C0CC SMSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 
ete 90110 SETAELE: :: APT ENVIRONMENT TRELE 


E0e 
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243 001106 000 SENV: .BYTE ENV — ;;ENVIRONMENT BYTE 

aE gate Fumei: gee Sump asr'ttey piers 

5-5 Bettie BBRG i USWR: HGR ACeuR USER mnie FE 

a4? 801114 sago0c SCPUOP: .WORD ACPUOP ::CPU TYPE, OT TONS 

348 - BtTs 15- 1iecPu T YPE 

248 1% 1704201, 11705202, 11/20203, 11/40=04, 11745205 

250 te 102 06; PDe=07, 4210 

251 :* BIT LOSREAL TIME CLOCK 

252 * BIT 9=FLOATING POINT PROCESS OR 

253 & BIT S=MEMORY MANAGEMENT 

2545 OO111g 900 $MAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS.M.S. BYTE 

25s 01117 509 SNTYP1: .BYTE AMTYP] jiNEM. TYPE,BLKei 

25é :* MEM. TYPE BYTe (HIGH BYTE) 

257 :% 900 NSEC “Core 001 

253 14 300 NSEC SIPOLAR=CC2 

253 - NSE g fo NoS=003 

260 001120 oo0000 $MADR1: .WORD AMADR1 ;;HIGH aBORES 

261 TT ** MEM. LAS DOR. uf ws YTES, THIS WORD AND LOW OF “TYPE™ ABOVE 

262 O01122 oc gmamsS2: .B8YTE AMAMSe ; HIGH AGORESS .S. BYTE 

263 001123 806 §MTYPe: .BYTE AMTYPS ::MEM. 

264 001124 oo0d00 SMADR2: .WORD AMADRe :3MEM. tAST’ ADDRESS, BLK #2 

265 001126 099 SMAMS3: .BYTE AMAMSS HIGH ADDRESS -S.BYTE 

266 01127 stale SMTYP3: .BYTE AMTYP3 SEMEN. T YPE ,BLK43 

28> 961130 900000 SMADR3: :WORD AMADR3 :;MEM.LAST ADDRESS, BLK#3 

268 901132 909 SMAMSH: [BYTE AMAMSY ; ;HIGH RODRESS it S'BYTE 

268 901133 SNTYPY: “BYTE AMTYPY 5 ;MEM.T LK 

270 901134 ooo0a8 SMADR4: .WORD AMADRY ::; T’ ADORESS BLK SY 

271 001136 00030 SVECTI: .WORD AVESTI SUATERRUPT Ue rORk: BUS PRIORITYs! 

eve 091140 900090 SVECT2: “WORD AVECTS SINTERRUPT VECTORM2BUS PRIGRIT: a2 p 

273 O0ll4e 176500 $BASE: [WORD ABASE ::BASE ROOF RESS OF EGUIPMEN? UNDER TEST 

e74 O0li44 O0000¢ SOEVM: iWORO ADEYM ::DEVICE M 


) 
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er .SBTTL ERROR POINTER TABLE 
27a :#THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN cCUR. 
280 :#THE INFORMATION Ig OBTAINED BY USING THE INDEX NUMBER FOUNC 
28: !#LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE I S PERTINENT. 
232 L¥NOTEL: IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC 
#33 : #NOTED: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED as FOLLCHS: 
285 % EM : POINTS TO THE ERROR MESSAGE 
Des 1% DH :POINTS TO THE DATA HEADER 
387 # OT tS DOINTS TO THE DATA 
eg i* OF ;]POINTS TO THE DATA FORMAT 
350 
23: OOLL4E SERRTB: 
392 
533 Bette 1S266 comnts M] :"CAN NOT ace ss Tose” 
Bites 837628 Fit im eeery ERR Be Tose” 
29% 901152 O222]4 OT] :$TESTN, SERRPC, rese 
237 001154 990000 0 
299 O01156 015312 EM? "CAN NOT RCCESS TSuF” 
399 OO1160 g2l4%E DHe :"TEST® ERR RO TBUF” 
351 O01162 OGece24 oT2  STEETN, $ERRPC, TRUF 
ze 001164 oo0909 a 
304 01166 015336 EM3 s"TCSR DONF NOT CLEARED WITH TSUF FULL” 
305 901170 02145: DH] “"TEST# ERK PC TCSR™ 
306 601172 Oe2214 - OT] :STESTN, SERRPC, TCSR 
307 901174 ooscod 6 
303 901176 o15403 EM4 sTESR DONE NOT Ser” 
310 001200 2145] Bi -"TEST# ERR PC TCSR” 
311 001202 922214 O71 :STESTN, SERRPC, TCSR 
gig 001204 900000 6 
315 901206 o1sues EMS :1GSR DONE NOT SET WITH RESET 
315 601219 O21461 BH TEST® ERR PC TCSR® 
316 OO0lele d22214 671 t STESTN, SERRPC, TCSR 
317 061214 900000 5 
319 OOl216 oO1s4te EME s"CAN NOT aficcess eosR” 
320 001220 oO21523 HG "TESTS pe RCSR™ 
321 OCises O22234 576 STEEN, SERRE: JROSR 
356 001224 900000 5 
224 001226° oO1SSoE EM? :MOAN NOT ACCESS RBUF™ 
325 001230 O21550 OH? “TEST# ERR PC REUF™ 
226 O0lese 22244 577  STESTN, SERRPC, RBUF 
36? 001234 000000 5 
323 00122 o1ss3e EMi9 "CAN NOT ACCESS LS" 
zac O01e40 021875 BHIO “YESTs ERR BE LES* 
zii Spiele Cecess 6710 SSTESTN, SERRPC, Li's 
sae Ole sal wielate 6 
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333 

334 001246 o1ssss EM11 ;"BITO OF TCSR NOT CLEAR AFTER RESET” 

335 901250 921451 DH1 “TESTS ERR PC TCSR 

336 O0i>z52 22i4 oT1 :$TESTN, SERRPC, TCSR 

=30 601254 900600 0 

339 001256 015620 EMle -"CAN NOT SET BITO OF Tesr” 

S40 O0i260 O214S! DH1 -"TEST# ERR PC TCSR™ 

S4i O0l2b2 O22214 OT1 ‘STEIN, SERRPC, TCSR 

ais 001264 900008 0 

344 001266 015651 EM13 CAN NOT CLEAR B1T0 OF TCSR” 

345 001270 921451 DH1 “TEST# ERR PC TCSR” 

S46 O0l272 Oe2214 DTl  §TESTN, SERRPC,TCSR 

a4 001274 900080 0 

349 OO1276 O1S704 EMi4 ;"RESET DIO NOT CLEAR BITO OF TOSR” 

350 O00i300 921451 DH1 :"TEST®# ERR PC TCSR” 

251 O0130e Oe2214 DTi ;STESTN, SERRPC, TCSR 

=26 001304 900000 0 

254 901306 O15745 EMIS sale OF reer NOT CLEAR AFTER SESET™ 

355 001310 d214S1 DH1 -"TEST@# ERR FC TCSR 

356 O0i3le Oeeel4 OTl :$TESTN, SERRPS. ToS 

eee 901314 909090 0 

359 001316 016010 EMILE >"CAN NOT SET BITe OF TCSR” 

360 001320 021451 DH1 :“TEST# ERR PC TSR" 

361 O0l3e2 G22214 OTl :$TESTN, SERRPC,TCSR 

ae 0013e4% 900000 0 

364 001326 01604: EM17 CAN NOT cue BITe.. OF TCSR™ 

365 2001330 92145} DH1 “TESTs ERR PC TCSR” 

36& O0133e Oee2l4 OT :$TESTN, SERRE. TCSR 

a 001334 oc50 0 

263 001336 16074 EM20 i RESET DID NOT CLEAR BIvT2 2F ToOSR" 

370 O0134O 021451 DH -"TEST# ERR PC CSR” 

372 001342 022214 OT1 ‘ STESTN, SERRPC, TCSR 

27 001344 000006 0 

s7a 

27% OOL346 016135 EMe1 :"BIT& OF TCSR NOT CLEAR AFTER RESETS 

375 001250 02145! DH} -“TEST@ ERR PC TCSR 

376 O013S2 22214 DT! :$TESTN, SERRPC, TCSR 

37? 081354 900000 0 

273 OO13S6 61620: EM2e2 :"XMIT INTERRUPT uit PRIORITY 7 

380 901360 92145] DHL -“TESTs ERR PC TOSR 

361 O01362e 022214 DT] : $TESTN, SERRPC, TCSR 

ny 001364% 9000000 0 

224 OOlZ6E Olb23t EM23 in CAN NOT SET BITS OF TCSR™ 

385 001378 921451 DH! “TEST® ERR PC _TCSR™ 

S86 001272 Oecel4 DTl  STESTN, SERRPC, TCSR 

287 801374 900009 0 

SEE 
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B2DLOB.P11 14-JUN-77 09:2 ERROR POINTER TABLE 
9 90137 Mey "CAN NOT CLEAR Biis OF TCSR” 

333 BB SoE va at HI in GEO Leet BE Fath. 
391 OT! : STESTN, SERRPC, TCSR 
332 arti Spe00d 9 

394 001406 016322 EM2S ;"RESET DID NOT CLEAR SITE OF TCSR™ 
395 901410 02145) OHI "TEST® ERR PC TCSR™ 
396 001412 Oeecl4 OT! ! $TESTN, SERRPC, TCSR 
387 001414 oo0000 Q 

395 001416 016363 EM26 "BITE OF RCSR NOT CLEAR AFTER RESET” 
400 901420 21522 DHE !"TEST# ERR PC RCSR™ 
451 GOl422 Opees4 OT6 ‘ STESTN, SERRPC, RCSR 
432 O014e4 000000 0 
404 001426 016426 EM2? ‘MRCVR INTERRUPT. WITH PRIORITY 7 
405 OO01430 621523 OHS :"TEST# ERR PC RCSR™ 
40& 001432 Oee234 OTS ‘ STESTN, SERRPC,RCSR 
197 901434 ooooc0 0 
409 O01436 O1S4ES EM30 ;"CAN NOT SET BITG OF RCSR” 
418 OO144O 21523 DHE "TEST# ERR PC 
411 Bol4H2 Op2234 OTE :STESTN, SERRPC, RCSR 
4i2 O01444 O00000 6 
414 OOl44E O16516 EM31 :"CAN NOT CLEAR BITS OF RCSR™ 
4i5 OO1450 021523 DHE “TEST# ERR PC RCSR” 
41g Anrys2 naaaq OTE  STEETN, SERRPC,RCSR 
412 Sa:454 Go0d00 0 
419 OO14S6 CLESE) EM3e2 "CAN NOT CLEAR BITeOF RCSR WITH RESET2 
420 O01460 O62 1be3 DHE :"TEST# ERR RCSR™ 
451 O014e2 Os2254 OTe :$TESTN, SCRAPE, RCSR 
428 001464 Socooc 0 
a 
424 OO146E O16617 EM33 "BITS OF LKS NOT CLEAR AFTER RESET" 
425 001470 521575 H10 :“TEST# ERR PC LKS" 
426 001472 9e2254 ¥ BYiB :$TESTN, SERRPC, LES 
#2 691474 oo00o0 : 
425 OO1N7E O1b66! EM34 s“LKS INTERRUPT WITH PRIORITY 7 
430 001500 g21575 OHIO “TESTS ERR LkS" 
43] 001502 de2254 5710 ‘ STESTN, ase LKS 
+ 801504 docoac 0 
1 001506 016737 Ena CAN NOT SET 8176 OF LKS" 

3 } c ] a # ER! LkS” 
332 Bolte SSe5eq ate t STESTN, EERRPE, LES 

137 001514 cosco0 0 
439 0015! 6747 ” SAN NOT CLEAR BITS OF LKS" 

waa SoiesR BBEEHE Pris GET ERR Be cee 

441 OO152 O22265 119 tSTESTN, gre Pe LKS 

442 OO1EE4 C0d0oc 5 

743 ‘ 


444 201526 017001 EM3? ;"RESET DID NOT CLEAR BITE oF Las” 


ae 
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ST# ERR PC LKS” 
STN, SERRPC,LKS 
7 QUAL ADDRESSING ERROR” 

TEST# E o 
STESTN, SERRPC, SGDADR, SBDCSR 
;"BIT7 OF LG NOT SET AFTER RESETZ 

¢ Ks” 


:"TEST® ERR 
t STESTN, $SERRPC,LKS 


ic AN wr as BIT? OF LKS” 
ST# ERR P ks” 


“TESTS 
'STESTN, SERRPC, Lks 


;"BIT? OF LG DOES NOT SET” 

"TEST® ERR PC LKS" 

t STESTN, SERRPC, Ls 

pARTC INTER AT PRIORITY 7 
“TEST#® ER Lks™ 

STESTN, SERRPC, LKS 

seRTC yt a te WHEN DISABLED” 
“TEST® ERR PC LKS 

t STESTN, SERRPC, Lks 

:"RTC_INTERRUPT DID NOT OCCUR” 

a Arera ERR Pe Leer 

'STESTN, SERRPC, LES 

iBT rhe RRUPT DID NOT OCCUR” 

ERR Be Pee : 


STEIN, SERRPC,LKS 


:TRTC DOUBLE, INTERRUPT" 
; STESTN, SERRPC,LKS 


T p30 NOT CLEAR RTC INTERRUPT” 
# ERR PC LkS” 
N,SERRPC, LKS 


EST INTERRUPT OID NOT CLEAR wi TH SIT? OF LKS” 
“TEST 8 ERR PC LKS” 


= 
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UNION UU Un UU 
0 b+ b= b= b+ b= 0 bo 
WDM UT £ IfueH- 2 


Baiees 
00 


3011046) 14-JUN-77 
14-JUN-77 09:27 


B68630 


017471 
021655 
Oee2? 6 
000000 


017515 
021451 
022214 
000090 


017653 


pote ig 021451 


O0200& 
092010 
o020le 


Oee214 
o0c000 


0175S3 
Sl 


1 
Oee214 
0000 


eiS23 
Oe2234 
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ERROR POINTER TABLE 
gree 


EMS3 


pres 
0 


<= 


o°olyve ov00M O0OOM 
rae 


ovo 
onm 
wm 


JO 


;STESTN, SERRPC,LKS 


STESIN, SERRPC, LKS, FIRST, SECND. 


:"XMIT_ INTERRUPTS WHEN DISABLED” 
:"TEST® ERR PC _TCSR™ 
t STESTN, SERRPC, TCSR 


:"XMIT DID NOT INTERRUPT” 
:"TEST® ER CSR” 
STEIN, SERRPC, TCSR 


sAXMIT INTERRUPT _AT PRIORITY 7” 
;"TEST# ERR PC _TCSR™ 
; STESTN, SERRPC, TCSR 


i xniT ers WITH ENABLE CLEAR” 
;"TEST® ERR PC _TCSR” 
:STESTN, SERRPC, TCSR 
:"XMIT O70. NOT INTERRUPT” 
TCSR” 


:"TEST® ERR PC 
‘ STESTN, SERRPC, TCSR 


;"XMIT RE- mt as gt 
:"TEST® ERR PC 
: STESTN, SERRPC, 1CSk 


sTLORDING, TELE E DIQ_NOT CLEAR INTERRUPT” 
STESTN, SERRPC, TCSR 


CAR PEE SEE 
;STESTN, SERRPC, Res 


;“R VER VER SET” 
io TESTH ERR PC RESR™ 
; STESTN, SERRPC RCSF 


:"RCVR ACTIVE ia eee | WITH CONE SET2 
:"TEST# ERR PC 
:STESTN, SERRPC ROR 


o- 
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S5e 002014 000000 0 
0 Ol EM66 ; "RESET p30 BRT CLEAR RCVR DONE” 
a Ben 1323 DHE :"TEST# ERR RCSR” 
S61 002022 2234 ." t STESTN, SERRPC, RCSR 
Bad 002024 000000 
eed pocnes Geol? vd ADR ENABLE? SET aneke NOT CLEAR RCVR DONE” 
S66 O00e03e Jeee34 DT6 :STESTN, SERRPC, RCSR 
ea 002034 9000000 0 
5639 002036 020212 EM70 ; "READING we DID_NOT CLEAR RCVR DONE” 
$70 002040 021523 DHE :"TEST# ERR PC _RCSR™ 
$71 O02042 022234 OTE t STESTN, SERRPC ,RCSR 
Gs 002044 o00000 0 
574 002046 020257 EM7 1 3 rer WITH ENABLE CLEAR” 
575 O00e050 021523 DH6 ea RR PC _RCSR” 
$76 O0e0Se Oeee34 OTE  STESIN, SERRPC ,RCSR 
ace 002054 000000 0 
573 002056 de04eb EM72 ;"RCVR orp. NOT INTERRUPT” 
$80 002060 021523 DHE :"TEST# ERR PC _RCSR™ 
581 002062 O22234 DT6  STESTN, SERRPC ,RCSR 
oes 002064 o00000 0 
S84 002066 020321 EN73 ;"RCVR a AT PRIORITY 7" 
Ses 002070 021523 DHE :"TEST® ERR RCSR” 
586 002072 022234 DT6 :STESTN, SERRPC, RCSR 
587 002074 000000 0 
002076 020357 EM? ;"RCVR a REQUEST PASSED WITH ENRBLE CLEAR” 

$90 002100 021523 OH6 ;"TEST# ERR PC RCSR™ 
591 002102 Oe2e34 pre ; STESTN, SERRPC ,RCSR 
2a5 002104 Od00000 
594 002106 d20426 EM7S i RCVR DID NOT INTERRUPT” 
595 002110 021523 DHE “TEST® ERR PC RCSR” 
596 O0elle 22234 OT& STESTN, SERRPC ,RCSR 
Pen 002114 9o00000 0 
599 002116 o20455 EM? ;"RECEIVER RE-INTERRUPTED” 
600 002120 021523 DHE :"TEST® ERR PC _RCSR” 
601 O0elee Oee234 DT ; STESTN, SERRPC,RCSR 
Pas O0e1e4% 000000 e 
604 002126 020501 EM?7 ° ;"READING RBUF DID NOT CLEAR INTERRUPT” 
605 002130 021523 DHE ;"TEST® ERR PC 
606 O0el3e Oeee34 OT6 :$T amN, SERRPC RCS 
Pao 002134 000000 0 
603 0021 02054 M100 T NOT AR RCVR INTERRUPT” 
pio at ate Bue nee tg + Bee Be aren 

| el4 eces4 DT& SSTESTN, ERRPC,RCSR 
Ble 002144 900000 0 
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rate 


900000 


020637 
021523 
022234 
000000 


020676 
021722 
022312 
000000 


020734 


000000 
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ERROR POINTER TABLE 


LO 


Jab ag RECEIVE COUNT 


PAGE: 


;""OR’ FLAG DID NOT SET” 
; STESTN, SERRPC,RCSR 


;"’ERROR’ NOT SET WITH OR’ FLAG” 
:"TEST# ERR PC _RCSR” 
 STESTN, SERRPC ,RCSR 


"BREAK Pie NOT TRANSMIT ALL ZEROES” 
“TEST# ERR PC RCSR_ DATA” 
: STESTN, SERRPC ,RCSR, SBODAT 


‘em DID NOT act FRAMING ERROR” 
“TEST#® ERR PC RCSR” 
STEIN, SERRPC ,RCSR 


;"DATA omen ERROR” 
“"TEST# ERR PC RCSR GOOD BAD” 
 STESTN, SERRPC ,RCSR, GD, 80 


;"DATA COMPARE ERROR WITH CABLE” 
:"TEST# ERR PC _RCSR GOOD BaD” 
: STESTN, SERRPC, CSR, GD, BD 


CHOI PELE TEST 
; STESTN, SERRPC,RCSR 


STESTN, SERPS, REG XMTCNT REVCNT 


“DATA COMPAR eran IN EXERCISER 
“TEST#® ERR P BAC” 
iSTEETN, SERRPC, Res. GD,8D 


;"TRAP CATCHER” 
S"TEST# ERR PC RCSR  OLDPC_ TRAP ADR” 
 STESTN, SERRPC,RCSR, OLDPC,BDVECT 
NO SK INTERRUPT IN EXERCISER” 
PC LKS” 


t STESTN, SERRPC,LKS 


CCe4 


ay 


M02 
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669 
670 00227 1247 EM114 ;"TERROR’ NOT SET WITH 'FR’ FLAG" 
671 Bes Sa8 BS 1534 DH6 !"TEST# ERR PC RCSR” 
672 002302 022234 OT6 : STESTN, SERRPC,RCSR 
73 002304 000000 0 
675 002306 021306 EM115 sRCV ACTVIE NOT CLEAR WITH INIT 
676 002310 021523 DHE "TEST# ERR PC RCSR” 
677 OOe3le 022234 DT6  STESTN, SERRPC,RCSR 
678 002314 oo0000 0 
680 902316 021345 EM116 ;RCV ACTIVE WITHOUT “START” BIT 
682 OO02e32e2 O22234 DT6 : STESTN, SERRPC,RCSR 
683 092324 og0dco 0 
$85 002326 921404 EM117 :ROR ENABLE NOT CLEAR WITH RCV ACTIVE 
686 002330 021523 DH6 !"TEST# ERR PC RCSR” 
687 002332 022234 OT6 : STESTN, SERRPC,RCSR 
88 002334 000000 0 
690 002336 o00000 CISTFL: .WORD OO ;CONSLE UNDER TEST FLAG 
691 O02e340 oo0000 TMP1:  .WORD O ; TEMP LOCATION FOR TABLE OFFSETS 
692 O0e242 o90000 The: “WORD O TEMP LOCATION FOR DEVICE COUNT 
693 002244 900000 MP3:  .WORD O *LOCAT TON FOR DEVICE MAP BIT TEST MASK 
634 TRECISTER AND VECTOR ADDRESSES FOR THE DL-1iW UNDER TEST 
696 O02 000 RCSR: .WORD O 
697 002350 o00000 RBUF: .WORD O 
£98 0000 TCSR: .WORD O 
639 002354 o00000 TBUF: :WORD 0 
700 56 o00000 RVECT: [WORD 0 
701 002360 900000 RPSW: .WORD O 
702 O02362 o00000 TVECT: .WORD 0 
703 092364 ooco00 TPSU: ORD 9 
705 sCONSOLE REGISTER AND VECTOR ADDRESSES FOR THE DL-11W 
707 002366 177560 CRCSR: 177560 sADDRESS OF RECEIVER COMMAND/STATUS REGISTER 
708 002370 177562 CRBUF: 177562 ‘ADDRESS OF RECEIVER BUFFER 
709 002372 177564 CTCSR: 177554 ADDRESS OF TRANSMITTER COMMAND/STATUS REGISTER 
710 002374 177566 CTBUF: 177566 “ADDRESS OF TRANSMITTER BUFFER 
711 002376 O00060 CRVECT: 60 RECEIVER INTERRUPT VECTOR 
712 O02e400 o00062 CRPSW: 62 
713 002402 o05064 CTYECT: 64 ; TRANSMITTER INTERRUPT VECTOR 
4 002404 oo00b6 CIPSW: 66 
716 “REAL TIME CLOCK REGIST ER AND VECTOR ADDRESSES 
717 OO02406 177546 tks: WORD 177546 
718 OCe4i0 oo0100 RTCVT: :WORD 100 
713 002412 o00102 RTCPSW: .WORD 102 
721 o02414 ooo0e0 ADRTBL: .BLKW 20 
722 O0e44 o000e0 VCTTBL: .BLKW 20 
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75 SUBROUTINE TO GENERATE DEVICE ADDRESS TABLE 

¢ 

727 002514 o012702 002414 DEVADR: MOV #AORTBL , R2 sPOINT Re TO THE DEVICE ADDRESS TABLE 

728 002520 016700 176416 MOV $BASE , RO ; LOAD BASE DEVICE ADDRESS IN RO 

729 002524 010001 MOV R 

730 002526 062701 900170 ADD #170,R1 POINT R1 TO LAST DEVICE ADDRESS 

731 002532 010022 13: MOV RO, (RE)+ : MOVE DEVICE ADDRESS TO TAB 

732 002534 O62700 000010 ADD #10, RO ‘POINT RO TO NEXT DEVICE ADDRESS 

733 002540 020001 CMP RO.R1 !FINISHED GENERATING TABLE? 

734 O02542 003773 BLE 1$ BR, IF LAST BEVICE ADDRESS NOT LOADED 

735 002544 000207 RTS PC 

736 

+35 

739 002546 OOS057 176316 START: CLR SFATAL CLEAR ERROR NO. 

740 O025S2 005067 176310 CLR SMSGTYP . tCLEAR MESSAGE TYPE 

741 902556 005067 176310 CLR STESTN CLEAR TES 

742 O02Sbe 005067 177550 CLR CTSTFL CLEAR CONSOLE UNDER TEST FLAG 

743 002566 005067 176304 CLR $DEVCT -CLEAR DEVICE COU 

744 002572 005067 176302 CLR SUNIT CLEAR UNIT FURBER. 

745 002576 005767 176310 «| TST SUSWR ;15 SUSW 

746 02602 001003 BNE 1$ R : Y 

747 O02604 012767 o00400 176300 MOV #400, SUSWR ELSE, DEFAULT TO SUSWR=400 

748 O0eb12 912737 900006 OO0D04 1S: MOV #6, a4 itNiTtaL ize TIMEOUT VECTORS TO TRAP 

ek 002620 012737 090003 o00006 MOV #3; d%b CATCHER ROUTINE 

? 

751 .SBTTL INITIALIZE THE COMMON TAGS 

752 : > CLEAR THE COMMON TAGS (S$CMTAG) AREA 

753 002626 012706 001000 #SCMTAG, Rb ssE TRS LOCATION TO BE CLEARED 

754 002632 o05026 OCR (R6)+ ‘CLEAR MEMORY LOCATION 

755 002634 O22706 o01040 CMP #SWR,R6 ;;DONE? ' 

756 002640 001374 BNE 6 ;;LOOP BACK IF NO 

757 OO2642 012706 001000 #1000, SP :;SETUP THE STACK POINTER 

758 s INITIALIZE A FEW V VECTORS 

7539 00264% 012737 013000 oo0020 MOV #SSCOPE, dBIOTVEC ;;I0T VECTOR FOR SCOPE ROUTINE 

760 002654 012737 000340 o00022 MOV #340, ae LOTVEC Cte ; Lev Ent ve 

761 O0e662 612737 012304 O00030 MOV #SERROR, JHEMTVEC ;;EM VECTOR FOR ERROR ROUTINE 

762 002670 012737 900340 000032 MOV #340, JHEMTVECt2 ; {LEve 

763 092676 012737 514704 OOCO34 ~ MOV #STRAP, JHTRAPVEC’ : Vi VECTOR FOR TRAP CALLS 

764 UOe704 012737 000340 000036 MOV #340, JRTRAPVEC+2; 

765 O02712 012737 Olebe2 ocooge4 MOV wSPHRON 9 #PWRVEC ; POWER FAILURE VECTOR 

766 002720 012737 O00340 00026 MOV ST eVEC +2 2 :LEVE 

767 002726 016767 007200 007170 MOV Senne? SEOPCT ;: Sait 3 Enp- OF-PROGRAM COUNTER 

768 002734 005067 176120 CLR SEES scope THE ESCAPE ON ERROR ADDRESS 

769 002740 112767 OO0001 176047 MOVB #1, SERMAX ;;ALLOW ONE ERROR PER TEST s 

770 O02746 012767 O0e746 176032 MOY t. + SLPROR !INITIALIZE THE LOOP ADDRESS FOR SCOPE 

771 002754 Oie767 O02754 176026 MOV SETUP THE ERROR LOOP ROOR ESS 

772 ;;S1ZE FOR A HARDWARE SutTO aegis IF NOT FOUND OR IT I 

773 ::EGUAL TO A “-1", SETUP A SOFTWARE SWITCH REGISTER. 

774 002762 013746 o00004 MOV abeRR RRVEC Peep) 's;SAVE ERROR VECTOR 

775 002766 012737 003022 oopoc4 MOV abis GRERRVEC i396 UP ERROR VECTOR 

776 002774 012767 177570 176036 MOV # :;SETUP FOR A WAR H REGISTER 

777 003002 012767 177570 i7E032 MOV s0b1SP OISPLAY SAND A HARDWARE DISPLAY a 

776 903010 022777 177777 i7¢022 CMP 8-1, aSWR 3s TRY TO REFERENCE HARDWARE SiR 

773 «COSOlE 00301 BNE bes" S;0RANCH IF NO TIMEOUT TRAP OCCURRED 


780 > AND tue HARDWARE SWR IS NOT = -] 


c)- 
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781 003020 900403 BR 6S$ :;BRANCH IF NO TIMEOUT 

782 O030e¢2 012716 003030 64$: MOV #65, (SP) ::SET UP FOR TRAP RETURN 

783 003026 000002 RTI 

784 003030 012767? OO00176 176002 653: MOV #SWR :;POINT TO SOFTWARE SWR 

785 003036 Ol2e767 000174 175776 MOV SOtepaee B DISPLAY 

78 003044 012637 000004 66S: MOV (SP)+,a#ERRVEC ;;RESTORE ERROR VECTOR 

788 003050 o0S067 176020 CLR $Pass :CLEAR PASS COUNT 

783 003054 132767 000200 176025 BITB  8APTSIZE, SENVM i TEST USER SIZE UNDER APT 

790 003062 001403 BEQ 675 "YES, USE NON-APT SWITCH 

ah 903084 012767 001110 175746 i MOV #SSWREG, SWR ::NO,USE APT SWITCH REGISTER 

? Bose 032777 900020 175740 BIT #B1T4, ISWR ; TEST CLOCK ONLY? 

794 003100 001404 BEQ INIT 3 

795 003102 005267 177230 INC CTSTFL :ELSE OPT CONSOLE TEST FLAG TO ENABLE CLOCK TESTS 

796 003106 000167 900744 IMP ID AND JUMP TO TYPE PROGRAM ID 

797 003112 132767 000001 175766 INIT: ITB #BITO,SENV CHECK IF ON APT 

798 003120 001404 BEG M :BR IF NOT ner 

799 003122 132767 oo00200 175757 BITB #BIT7,SENVM ;DID APT SIZE 

g00 003130 o010S5 BNE APTSZp am: PT SIZED 

801 003132 032777 COCO4O 175700 MANL: &IT #BI1TS, ISWR twas * UALLY SET? 

B0e 003140 o010se2 BNE APTS2 LIF YES. SIP Sire SIZING 

804 003142 OO47E7 177346 SIZE: JSR PC, DEVADR ;GENERATE DEVICE ADDRESS TABLE 

805 903146 O0S067 177170 CLR TMP2 :CLR TEMP LOCATION T0 KEEP DEVICE COUNT 

806 O031S52 O05067 175766 CLR SDE VM :CLEAR DEVICE MAP 

807 903156 013703 O99004 MOV a84,R2 :SAVE TIMEOUT VECTOR 

08 003162 012737 003212 oop00o4 MOV 84S" 84 ;SET TIMEOUT POINTER 

805 003170 916700 17574 MOV $BASE RO :LOAD BASE ADDRESS E 

810 003174 062700 o0016C ADD #160,R0 :POINT RO TO UNIT #15 (UNITSO=CONSOLE? 

811 003200 905710 38: TST (RO) :CHECK FOR DEVICE EXISTANCE < 

812 003202 005267 175736 INC $DEVM ‘INDICATE DEVICE EXISTANCE IN DEVICE MAP 

813 003206 905267 177130 INC TMP2 : INCREMENT DEVICE COUNT 

814 O03212 012706 901000 ug: MOY #1000, SP “RESET STACK POINTER 

815 003216 006367 1757 ASL SDE VM sADJUST DEVICE MAP FOR NEXT UNIT CHECK 

816 003222 162700 000010 Sus #10, RO :POINT RO TO NEXT DEVICE NUMBER 

817 003226 926700 175710 CMP He RO :FINISHED SIZING? 

818 003232 003762 BLE 33 :BR, IF BASE ADDRESS HAS NOT SEEN CHECKED 

819 003234 016700 177126 MOV CRCSR,RO :LOAD CONSOLE DEVICE ADDRESS 

820 003240 012737 003260 cocoons MOY #53. 84 :SET UP TIMEOUT POINTER 

821 003246 905710 TST RO} : TEST FOR CONSOLE EXISTANCE 

822 003250 ? 175670 INC DEVI : INDICATE CONSOLE EXISTANCE IN DEVICE MaP 

823 003254 005267 177062 INC MP2 ! INCREMENT DEVICE COU 

824 003260 010337 Oo0004 S$: MOV Ro ae4 :RESTORE TIMEOUT VECT YOR 

ges 003264 OO041s BR VCTADR :BR TO GENERATE VECTOR ADDRESS TASLE 

827 003266 O0S0E7 177050 APTSZD: CLR Mp2 :CLEAR TEMP LOCATION TO KEEP DEVICE ¢ 

822 003272 O1E702 i7Sb4E MOV SDE, Re :MOVE DEVICE MAP TO R2 


903276 005702 TSTDVM: TST Re !TEST MSB OF DEVICE MAP 

003300 BP 13 : IF MSB IS ZER 

002302 O05267 177024 INC TMP2 : INCREMENT DEVICE COUNT, IF MSB=1 
: R2 : SHI TO MSB PO 


TSTOV! ; ec 
77174 CvAaDT: JSR PC, DEVADR ;GENERATE DEVICE ADDRESS’ TABLE 


cocoon co coo Co cou 
eg at) 

Pon 2 oor. woo 
oO 
o 
~ i) 
oO 

“ieee TUN 

= 
w 
» 
w 
a 
w 
~ 
=z 
m 
< 
— 
w 
c=) 
4 
—~ 
a 4 
wD 
w 
oa 
—~4 
-~ 
2 
Zz 


Pelevieuley) 
. = a 


CO3 


2MRIN. OMACYL1 30(1046) 14-JUN-77 17:10 PAGE 1 PAGE: O0e8 
DIOLD8.P12 14-JUN-77 09:27 ONITIOE Tee THE COMMON TAGS 

337 : GENERATE VECTOR ADDRESS TABLE 

835 003320 o12702 o02454 VCTADR: MOV aVCTTBL, R2 ;GET LOCATION OF VECTOR TABLE 

840 003324 113700 001136 MOVB aesyectl RO :COPY BASE V 

841 09 042700 TP 438 BIC 7400, RO ; CLEAR BviE” Fa EXTENSION 

842 003334 010001 MOV Ro. RI 

843 003336 062701 000170 ADD #170.R1 POINT Rl TO LAST DEVICE VECTOR 

844 903342 010022 13: MOV RO. (Re)+ :PUT VECTOR ADDRESS IN TABLE _ 

845 003344 062700 o00010 ADD #10,R0 :POINT RO TO NEXT VECTOR ADDRESS 

846 003350 O20001 CMP RO,Ri :FINISHED GENERATING VECTOR TABLE? 

e 003352 003773 BLE 1$ ‘BR, IF LAST VECTOR IS NOT LOADED 

oa :MOVE DEVICE COUNT INTO DEVICE COUNT MESSAGE 

851 003354 016700 176762 MOV TMP2,RO ;COPY DEVICE COUNT INTO RO 

852 003360 o05001 CLR Rl :CLEAR AUXILARY REGISTER 

853 003362 900300 swag =Ss«RO ;PUT DEVICE COUNT IN UPPER BYTE OF RC 

854 003364 006300 ASL RO ‘MOVE MSB OF COUNT INTO 

855 003366 9006300 asl RO F 

856 903370 906300 SHIFT: ASL RO ‘PUT MSB OF COUNT INTO CARRY 

857 003372 106101 ROL8—Stsé@RR&dLL *MOVE MSB OF COUNT INTO 8 

858 9003374 006300 ASL RO !MOVE NEXT BIT TO CARRY 

859 003376 106101 ROLB sé “MOVE INTO RI 

860 003400 006300 ASL RO ;MOVE LAST BIT OF DIGIT 

861 002402 10610: ROLB sR» ‘i l 

862 003404 062701 oodoED ADD #60,R1 iC NVERT DIGIT TO ASCII 

863 903410 00030! swae sR OVE DIGIT TO UPPER SYTE 

BEY 003412 032701 ocoo20 BIT #B1T4,R1 HOVE BOTH DIGITS BEEN MOVED TO Ri? 

865 002416 001764 BE SHIFT : BR 

B56 003420 910167 o16s4e MOV R1,M2A : MOVE DEVICE COUNT TS OUTPUT MESSASE 

° 

SE 

B62 902424 052767 990002 176712 BEGIN: BIS #BIT1, TMPS :SET UP BIT MASK TO TEST SDEVM FOR DEVICES EXCEPT ZONSOL 

870 903432 OO0SOE7 176702 CLR TMP! : CLEAR LOCATION TO STORE TABLE OFFSETS 

871 003436 032767 oos00l 17ssc0 BIT #8170, SDEVM "IS CONSOLE TO BE TESTED? 

872 003444 O01001 BNE TCONS :BR, IF CONSOLE IS TO BE TESTED 

873 903446 990414 BR TSTDEV :BR; TO TEST OTHER DEVICES 

874 903450 O0S267 176662 TCONS: INC CTSTFL : INDICATE CONSOLE U NOER TEST 

875 003454 012700 O02366 MOV sCRCSR, RO :SET UP CONSOLE BEVICE ADDRESSES 

876 003460 012701 002346 MOV #RCSR,R1 :POINT R} 4 UUT ADDRESS TABLE 

677 002464 91202! 1S: MO’ (RO)+, (R14 : TRANSFER CONSOLE ADDRESSES 

878 003466 022701 002364 CMP sTPSW.RL FINISHED TRANSFER? 

879 903472 902374 BGE 1$ BR. IF Ror 

gee 503474 OO01E7 o00le22 IMP ter :GO' TEST CONSOLE INTERFACE 

e8¢ - PREPARE RODRESSES AND VECTORS FOR UUT 

862 O03500 O367E7 176640 175436 TSTDEV: BIT TMP3, SOEVM ;CHECK TO SEE IF DEVICE IS TO BE TESTED 

824 002506 o0i010 NE SETADR :BR, IF YES 

825 003510 OO06367 176620 ASL 7MP3 “SHYFT MASK TO CHECK | NEXT $OEVM SIT 

B86 002514 O62767 ON000S :7ee1e ADD #2, TMPL : INCREMENT TABLE INO 

887 003522 o0S267 175352 INC SUNT : INCREMENT UNIT N UMBER 

Bee 003526 000764 BR TSTDEY :G0 TEST NEXT BIT OF DEVICE MAF 

69C 003530 O0S267 175244 SETAOR: INC $UNIT ;UPDATE UNIT NUMBER 

25: 002524 006367 176604 ASL TMP3 UPDATE DEVICE MAP TEST MASK 

252 OC354C O1E722 176574 Mo) TMP] Re MOLE TABLE OFFSET 70 R2 
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893 003544 O82767 O00002 176566 ADD : UPDATE TA LE OFFSET. FOR NEXT DEVICE 
894 003552 016200 902414 MOV AOATSL (2), RO PUT UUT ADDRESS INTO RO 
895 003556 O12701 on234e MOV CSR,R1 ‘POINT R1 TO STORAGE AREA FOR UUT ADDRESSES 
896 003562 010021 ADR: MOV Ha bi TRANSFER UUT ADDR 
897 003564 O6e700 000002 ADD #2, RO “POINT TO NEXT UUT REGISTER 
998 903570 030027 4000006 BIT RO. #6 ‘FINISHED TRANSFER? 
g38 003574 001372 BNE Aba :BR, IF NOT 
901 003575 016200 o024S4 MOV VCTTBL(R2).RO  ;PUT UUT VECTOR INTO RO 
$02 903602 610021 VECT: MOV RO, (RI)+ ; TRANSFER UUT VECTORS TO ACTIVE TABLE GREA 
$93 003604 062700 900002 ADD #2,R0 “POINT TO NEXT VECTOR 
$04 003610 03002? o00006 317 RO, #6 VEINSHED TRANSFER? 

963614 Oa1372 ye BNE VECT IF NOT 

O361& OOo1e? ococz20 IMP TST o'TEST DEVICE 
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5p RRERRERERAAHAR ERA LRA ALALEL ALA LAA AE LLAL ARAL LAA RA ELL ALFA EL ESE 


:¥TEST 1 TEST ABILITY TO REFERENCE TCSR 
jseedesennspeoentenmpsanennmsenanenasessoneennnnenaanninane naam 
Tl 

MOV da4,R3 :SAVE TIMEOUT VECTOR 
MOV #1$. 984 :SET UP TIMEOUT VECTOR 
TST aTCSR REFERENCE THE XMIT COMMAND/STATUS REG. 
BR ug GO TO END OF TEST 

1S: CMP (SP)+, (SP)+ :RESTORE SP AFTER TIMEOUT 
TST CTSTFL ; CHECK K IF DEVICE IS CONSOLE 
BNE 2$ F YES, SKIP ERROR TYPECUT 
ERROR | REPORT ERROR TO APT & T 

= BR 4 ‘BR TO END OF TEST 


JSR Po, SATYY :;ONLY REPORT A FATAL ERROR 
1 :; THE ERROR NUMBER (FROM APT LIST™) 
ae: HALT 


MOV R3,a84 ;RESTORE TIMEOUT VECTOR 


Ligcenennnennnnesspesesheeateatesneescssteetsennenasennnanadanes 
ih TEST 2 TEST ABILITY TO REFERENCE TBUF 
; j,suseetnancenenessoneneeennnageentnsaaenmensetnanenDUNeNENDSONS 
rSTe2 SCOPE 


MOV 384,23 :SAVE TIMEOUT VECTOR 
MOV #13, 384 -SET UP TIMEOUT VECTOR 
TST aTBUF : REFERENCE eau XMIT SUFFER 
SR 4 :GO TO END OF TEST 
1g CMP (SP)+, (SP)+ sRESTORE SP AFTER TIMEOUT 
7ST cTstrt : CHECK IF DEVICE IS CONSOLE 
BNE 23 :IF YES, SKIP ERROR TYPEOUT 
ERROR 3 :REPORT’ ERACR TO APT & TTY 
ei BR 4$ :BR TO END OF TEST 
cs. 
JSR PC .SATYS :;QNLY_REPORT A FATAL ERROR 
2 tN ERROR NUMBER (FS°M aT LIST 
33 mALT 
=i ‘OY R258": sRESTORE TIMEOUT VECTOR 
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‘ i recy a TEGT THAT TCER BITICOONE) CLEARS WHEN XBUP Te ton 

73 TEST THAT TCSR BIT7(DONE) CLEARS WHEN XBUF IS LOADED 

j cedeeabanensenasiaeasseansioeaeeusesentensenseHsneaenseeaeaabaos 
00374 900004 itt SCOPE 
903750 OCSO?? 176490 CLR JTSUF ;LOAD XBUF 
003754 10577? 176372 TSTB =: ATCSR : CHECK DONE 
003760 10001 , SPL 3$ :BR IF CLEAR a ie 

FILL SECOND BUFFER, BECAUSE REFRESH COULD Cause 
. 
O03762 O0SO77 175366 CLR aTBUF 'FILL DOUBLE BUFFER 
003766 105777 176360 TSTB 3s TCR :CHECK DONE 
003772 100011 PL 3$ :BR IF CLEAR 
003774 OOSTE? 17633 TST CTSTFL :CHECK IF DEVICE Is CONSOLE 
so4o00 901602 BNE 1$ !IF YES. SKIP ERROR TYPEOU? 
oo4oo2 104003 ERROR 3 “DONE NOT CLEARED ourty TBUF FULL 
po400s 000454 - BR 3 :BR TO END OF TEST 
OC4OO6 OO47E? OO7ISE JSR PC, $ATY4 ONLY REPORT A FATAL ERROR __ 
904012 o00003 3 THE ERROR NUMBER (FROM APT LIST) 
904014 900000 23: HALT :TCSR “DONE” NOT CLEARED WITH TBUF FULL 
004016 905906 33: CLR RO :CLEAR TIMER 
994020 195777 176326 4g: TST aToSR : CHECK FOR XMIT DONE : 
004024 100414 QMI ID :TF DONE SETS, BR TO END OF TEST 
004926 goS200 INC RO : INCREMENT TIMER 
994030 001373 BNE 43 :8R IF TIMER NOT DONE 
Q04032 OOS7E7 176300 TST CTSTFL :CHECK IF DEVICE IS CONSOLE 
904936 901002 NE S$ 
004040 104054 ERROR 4 :TCOSR “DONE” DOES NOT SET 
o94042 Sco4ds BR ID tah TO END OF TEST 
004944 S$: 
OC4O44 O04767 oaCTI2° ISR PC. SATS i: QNLY REPORT 4 FATAL ERROR 
004050 o9c004 4 :: THE ERROR NUMBER (FROM APT LIST 
o04952 990000 HALT 
904054 sco424 oR TST4 :BR TO NEXT TEST. ANC SKIP THE TYPEOUT THAT FOLLOWS 
: BECAUSE OF THIS FAILURE 
OO4OSt 923737 OO00042 ODODE ID: OM Da42, TB4e sUNDER ACT! 
004064 OOl4le BEQ 3 IF YES tte IDENT. TYPEOUT 
004066 005767 17S002 TST $PASS :1S THIS THE FIRST Pass” ; 
004072 001007 BNE b§ -IF NOT BR TO NEXT TEST 8 SKIP THE IDENTIFICATION TYPESL 
004074 O0S767 174776 TST $DEVCT :IS THIS THE FIRST SUBPASS? 
904190 901004 NE 3 :IF NOT. BRTO NEXT TEST 
4102 104401 TYPE ‘TYPE PROGRAM INDENTIFICATION 

004104 922140 “ 4 
004106 ids4o: TYPE ; TYPE NUMBER OF DEVICES UNDER TEST 
CO4iic 22163 m2 
004112 932777 ococes i7472o és OTT 83174, 38h CLOCK TEST ONLY? 
S04120 901402 3E9 :BP IF 
OSaiez OOC1e? ooorse IME TL OC TELSE. JUMP 72 TEST cults 
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1005 

390 

1907 i Sropegennamharnensorenemepesnecnssesseneunearecressnnennenseen 

1008 :*TEST 4 TEST THAT TCSR “DONE” SETS WITH RESET 

1009 jitRRRERRERRERERAREAEERERREARERERASEASEREEEE REAR AREA EES EEE REESE 

i819 904126 000004 teTy: SCOPE 

1012 904130 O0S0°? 176220 CLR aTBUF ;LOAD hg al BUFFER 

LGli2 004134 108777 1l76e2le 1$: TSTB aTCSR :WAIT FOR DONE 

013 004140 10037 BPL 1$ 

i014 Q04i4e OCOSO7? 176206 CLR aTBUF ;LOAD SECOND BUFFER 

i215 004146 009240 NOP 

1316 004150 900005 : RESET sCLEAR DONE WITH RESET 

LOl7 004152 105777 176174 TSTB aTCSR :CHECK FOR DONE SET 

191 004:56 10040! BM! TSTs :BR TO NEXT TEST IF DONE SET 

4ui3 

22g CO4¥i8O 104595 ERROR S ;TCSR “DONE” DOES NOT SET WITH RESET 

idee 

1023 

i024 Th aia ty eos lec 

1025 ; #TEST = TEST ABILITY TO ACCESS RCS 

i026 jaeeasanenasansnanaensssscnsnasstosssensansensbaseasesesseoeess 

ie? 004162 000004 STs: COPE 

i0e8 OO4164 913703 900004 MOV aa4,R3 ;SAVE TIMEOUT VECTOR 

i929 904170 9137 ¢ 904204 oocoos MOV 81, ae4 : SET UP [ig our VECTOR 

1530 OO04:7& OOS77? 17ers TST aRcsR CCESS R 

1021 04202 ooo4De BR 2 ‘oR TO END OF TEST 

1033 204204 ata 1$: CMP (SP)+,(SPi¢ : RESTORE SP AFTER TIMEOUT 

i935 Obse1o arce3s o09094 2% MOV R3.a84 SESTIRE TIMEOLT VECTOR 
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2238 

ins eesgepeccnaneepsieeee as 

182 TATEST s TEST ABILITY TO ACCESS RBUF 

1048 = SRE SRRSSE ESKER REE HARASS A HALE RAAAEAASLAAERLRAAAHSSAAA RASS LS 

1041 904214 oocoo4 tote: COPE 

L042 OO42i6 913702 900004 MOV a#4,R3 ;SAVE TIMEOUT VECTOR 

1043 904222 912737 og¥e3e go90004 MOV 81S, 984 :SET UP TIMEOUT VECTOR 

1044 004230 O0S777 17611 TST JRBUF :ACCESS R 

1048 904534 99o4ne aK 2g :BR TO END OF TEST 

1o4? 004236 022626 13 CMP (SP)+,(SP)+ : RESTORE SP AFTER TIMEOUT 

S48 O04240 104007 n ERROR 7 NOT ACCESS RBUF 

Oidss; ccoocs 23 MOV 3,584 ‘oe oT RE TIMEOUT VECTOR 


143 004 4e4e bivdJ/ ths wastes? 
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1058 
iseP 5 ERRRRERARA ALAA RE RARE LAA AAL ERE RA AALLLAE LAA RR EREAEL AAA ALA AA SALES 
1057 ‘STEST 7 TEST THAT BITO(BREAK BIT) CAN BE SET & CLEARED & RESET 
ipee © ERSRSSRSLELARARHALERSAERA SAA SARL SS RAREARAARE LARA LLAAL FLA LALA LASS 
1 oc4246 000004 S17: SCOPE 
10680 OO042S0 O3e777 900400 174S62 BIT #8178, ISWR ;IS BREAK FUNCTION ENABLED? 
1061 mae ae Reber STll fr T9 NEXT xT I. NO 
BES gee 00000: 176062 B #B1T0,aTCSR KOE eK Bi 10 oF OF TCSR CLEAR 
1964 oOO4270 901411 BEQ 33 ‘BR IF 
1065 OO04e72 OOSTE7 176040 TST CTSTFL 
1066 O04276 901002 BNE 1$ 
108? 004300 104011 ERROR 11 :BITO WAS NOT CLEAR AFTER RESET 
1068 p00404 BR 33 
1068 004304 18: . 
1070 004304 904767 OD68E0 JSR PC, SATY4 ;;ONLY_REPORT @ FATAL ERROR 
1971 004310 00001! il !: THE ERROR NUMBER (FROM APT LIST) 
1078 0043i2 000500 2$: HALT 
u 
1074 214 277 1 176030 2$: S #BITO,aTCSR :SET BITO IN TCSR 
ieee BOSS Bester pooeet pepase pe te icph oc 9 8 es oa 
1076 004330 001001 NE 4§ !BR IF SET 
peers, 
1078 004332 104012 ERROR 12 ;BITO OF TCSR WILL NOT SET 
1080 204334 oO4e777 900001 176010 4S: BIC #BIT0,aTCSR sCLEAR BITO OF TCSR 
1981 OO4342 O3°777 000001 176052 BIT #8170, aTCSR :TEST BITO OF TOSR 
1082 004350 001411 BEQ 7g 
1083 004352 005767 175760 TST CTSTFL 
1084 904356 o0100e BNE cS : 
1085 004369 104013 ERROR 12 :QIT0 OF TOSR WILL NOT CLEAR 
1086 004362 Soco404 BR 73 
1087 04364 S$: 
1088 004364 004767 OOSE0D ISR PC, SATY4 ;;ONLY REPORT A FATAL ERROR 
1088 004370 00013 13 :: THE ERROR NUMBER (FROM “ET LIS?) 
1036 004372 090000 &$: HALT 
1092 904274 052777 oO00001 175750 78: SIS #BITO,aTCSR :SET a N TCSR 
7093 Oo4402 900005 RESET cLEGR gi oHiTH RESET 
1094 D440 o3e777 po0001 i7s740 art #8170, aTCSR TEST 8 CLEAR 
~~ — } 4 
T3S— 504415 B33 ? gcO0G: 175736 Be rath, arcse ieteae cheer TO PRINT BR08 . 
18s? 56442 [o9oi: ERROR “RESET CID NOT CLEAR BITO CF TCSF 


[ae 
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.MAIN. M@ACYLL 30:1046) 14-JUN-77? 17:10 PAGE 24 PAGE: 035 
DTOLDE.P12 14-JUN-77 09:27 1? TEST THAT BITO(BREAK BIT) CAN BE SET 8 CLEARED & RESET 
1098 
Y ss SRSSREKRAKAALAA LALA SAA SSAA AFAASAAA LAA LAA RSAAAARARAALARALAL LAAT 
:¥TEST 10 TEST THAT BIT2(MAINT. BIT) CAN BE SET & RESET 
. + EKLLLESSAERR ERASER RRA RARER RSRRARERRSRAAAASERAAA LSE SAA AAALA SS 
gowey popngs + '~ téT10: SCOPE 
446 0 . RESET ; CLEAR EVERYTHING 
2777 000004 175714 BIT ag1T2, aTCSR TEST. FOR R giTe OF TCSR CLEAR 
44 Bia Q 3 
oo444O 905767 175672 TST CTSTFL :CHECK IF DEVICE IS CONSOLE 
Soda cat BREOR 13 Ht ES. a ERROR EAR AFTER RESET 
Beads = AgagAS eh 4 ) 
SHES 006512 ” R PC, SATYY NLY_REPOR ATA R 
48 es : 
Bo44 BRdE eS : i2 39 eRkS k NUMBER bee R Meer LIST) 
004460 900000 Fo} HALT 


ee a Ce re me oe 


004476 001001 


DO4SOO 104016 ERROR 16 ;BIT2 OF TCSR WILL NOT SET 
o04S02 042777 909004 175642 4S: BIC #8172, 2TCSR :CLEAR BIT2 OF TCSR 

904510 O32777 900904 175634 BIT #8IT2,aTCSR ‘TEST BIT2 CLEAR 

004516 001411 BEG ? :BR IF CLEAR 

004520 OOS7E? 175612 TST CTSTFL sCHECK IF DEVIC CONSOL 

004524 o0i002 5$ :IF YES, SKIP cede § TYPEOU 

004526 104017 ERROR 17 

004530 o00404 BR 75 

004532 Ss: 

004532 O04767 O06432 ISR PC, SATY4 ;:0NLY REPORT A FATAL ERROR 

004536 990017 1? : THE ERROR NUMBER (FROM APT LIST) 
904549 900000 6S: HALT :BITO OF ‘$CSR WILL NOT CLEAR 

oo4s42 052777 op0004 175602 75: BIS #8172, aTCSR ;SET B1T2 OF TCSR 

004550 900095 RESET :CLEAR BIT2 WITH RESET 

NO4552 032777 oO0004 175572 917 #8172, aTCSR :TEST FOR BITe CLEAR 

OO4SEO O01461 BEO TSTle !IF CLEAR, GC TO NEXT TEST 

O045&2 042777 OOCODY i75st2 BIC 86172, aTCSR :CLEAR BIT2, TO PRINT ERROR 

CO4¥S70 104020 ERROR 20 


oe mb 0+ bs bs bs bs + hs bs he = be eo Fe 0 eo bh Fe BO 9 


Pe or ee ee 0 = b= b<b + b= B= ba + poh bo bp 
; ~ <b b+ b= b= b= b= hap = 
FA SSRBVRREOREBBS AH td thet erent OP ULE trot Bourn bt ae het = 17 


;RESET DID NOT CLEAR SiT2 OF TCSR 


ea. 
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.MAIN. MACYL1 30/1046) 14-JUN-77 17: 10 PAGE 2 PAGE: O03 
DZDLDB.P11 14-JUN-77 09:27 T10 TEST THAT BIT2(MAINT. BIT) CAN BE SET & RESET 

HE 

ii ie 5 EST ll TEST THAT BITR(MHIT INT EN) Cl IE GET ah meee 

1198 -¥TEST 11 TEST THAT BITS(XMIT INT EN) CAN BE SET & RESET 

114 LAER EKER eanae ena EE ERE SEER EE EEEOEEEEEOEAEOEA EEE SERB ER SORES ETB 

1150 oo4s72 o00004 tit Tll: SCOPE 

1151 004574 g00005 RESET oe EVERYTHING 

115e OO4S76 017703 175560 MOV JTVECT,R3 VE XMI 

1153 OO4b0e 012777 OO4632 175552 MOV #1$, JTVECT T UP INTERRUPT VECTOR FOR ERROR REPORT 

1154 OO4610 o04767 905426 JSR PC. WRPSW ;SET PSW TO PRIORITY=7 

1155 004614 000340 WORD — 340 

1156 004616 032777 000100 175526 BIT wBiTe, aTCSR :TEST BIT& OF TCSR 

1157 904624 OO14O4 BEQ 2 ‘BR IF ZERO 

1158 OO04626 104021 ERROR 21 i 

1159 :BIT& IN TCSR NOT CLEAR AFTER RESET 

1163 004630 o0040e2 BR 23 

lig2 004632 o22b26 1S: CMP (SP)+, (SP)4 :RESTORE SP AFTER INTERRUPT 

1183 GO4634 104022 ERROR 22 

116s : :XMIT INTERRUPT OCCURRED PRIO=7 

1166 OO04536 OS2777 000100 175506 2S: BIS #BIT6,aTCSR :SET BIT6 OF TCSR 

1167 OO4644 032777 000100 175500 BIT #8IT6.aTCSR :TEST BITS OF TCSR 

1168 OO4eS2 Oo1001 BNE 3$ :BR, IF SET 

1170 oO46S4 104023 ERROR 23 

1171 ;CANNOT SET BIT6 OF TCSR 

1173 042777 OOD10D i7S466 3$ BIC #BITE,aTCSR ;CLEAR BIT& OF TCSR 

i174 OO4664 935777 600198 175469 BIT #3ITb. aTCSR : TEST BIT af 1eSh 

1175 OO4672 O014D1 BEG 4g :BR IF 

1176 OO4674 104C24 ERROR 24 

1177 ;CANNOT CLEAR BIT OF TCSR 

1173 OO467E OS2777 OOO100 175446 4S: BIS #8IT&,aTCSR :SET BITb OF TCSR 

1180 004704 905908 RESET :CLEAR BIT6 WITH RESET 

1181 O04706 032777 900100 175436 BIT #8176, aTCSR : TEST BIT6 OF TCSR : 

11g 504714 901401 BEQ c$ :BR IF CLEAR 

1184 OO4716 104025 ERROR 25 

i1g5 ;CANNOT CLEAR BITS oF TCSR WITH RESET 

1186 OC4720 010277 175436 S$: MOV R3, 2TVECT RESTORE XMIT VECTOR 


| a 
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MQIN. MACYL1 30(1048) 14-JUN-77 17:10 PAGE PAGE: 7 
sop Pll 1 SUN- g. odi3 ; an Fest THAT BIT&{(XMIT INT EN) CAN BE SET & RESET we: 
Hg 
11893 5 j TERRES RERERAER DEATH TAT Bite OF RCOR CAN BE SET & RESET 
1190 ISTEST 12 TEST THAT BITS OF RCSR CAN BE SET & RESET 
11391 a TEST 1g cnnennkionrrocatsstannsnteneconarauatecsesdssaceneenes 
1192 004724 oD00004 +4712: SCOPE 
1193 004726 o00005 RESET CLEAR EVERYTHING 
1194 004730 017703 175422 MOV IRVECT, RB SAVE RECEIVE VECTOR 
1195 OO4734 012777 OO47E4 175414 MOV #1$, DRVECT :SET UP INTERRUPT VECTOR FOR ERROR REPORT 
1196 OO4742 004767 O0S274 JSR PC WRPSW :SET PSW TO PRIORITY=7 
1197 O04746 000340 .WORD ~ 340 
1198 032777 000100 175370 BIT #B1T6, IRCSR TEST BIT& OF RCSR 
He OBES Be Bin 2 
1201 :BIT6 OF RCSR NOT CLEAR AFTER RESET 
1208 004762 900402 BR 2g ; 
1204 OO4764 O22626 18: CMF (SP)+, (SP)+ RESTORE SP AFTER INTERRUPT 
120S OO4766 104027 ERROR 27 
1208 sRCVR INTERRUPT WITH PRIORITY=7 
1208 OO4770 O05e777 000100 175350 2S: BIS #B1T6, IRCSR SEI BIT6 OF RCSR 
1209 OO477& O3e777 900100 175342 BIT #8176. aJRCSR EST BIE, OF RCSR 
igid 905004 901001 BNE 3$ 
1312 05006 104030 ERROR 30 
1213 sCANNOT SET BIT& OF RCSR 
1215 OOSOi0 942777 900100 175330 38: BIC #BIT6, aRCSR :CLEAR BIT6 OF RCSR 
1216 O0S016 O3°777 900100 175322 BIT #8176 aRCSR TEST BITS OF RCSR 
1817 005024 O014Di BEQ 4g :BR, IF CLEAR 
1219 OOSO26 104031 ERROR 31 
1226 ;CANNOT CLEAR BIT& OF RCSR 
1222 005030 052777 000100 175210 4S: BIS #B1T6, IRCSR SET BIT6 OF RCSR 
1223 005036 900905 RESET :CLEAR BITGOF RCSR WITH RESET 
1224 OO5040 O3e77? 900100 175300 BIT #8176, dRCSR :TEST BIT6 OF RCSR 
i226 oos046 001401 BEG c$ :BR, IF CLEAR 
iz27 o05050 104032 ERROR 32 
1328 -CANNOT CLEAR BITS OF RCSR WITH RESET 


tee9 O050S2 010377 175300 SS: MOV R3, IRVECT RESTORE RECEIVE VECTOR 
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.MQIN. MACYL1 30(1046) 14-JUN-77 17:10 PAGE 27 PAGE: 003e 
DZDLDB.P11 14-JUN-77 09:27 T12 TEST THAT BIT& OF RCSR CAN BE SET & RESET 
1231 
1232 OOSOSE 012767 000012 173716 TCLOCK: MOV #12, STSTNM “ADJUST TEST NUMBER TO (NEXT TEST - 1) 
1233 : iii it nh it it th heel 
1234 ‘ETE TEST ABILITY TO ACCESS L 
12358 eetvedvesvesnenseneenncaneesveavenneateeseeaveaveneareaseentes 
1236 005064 000004 +671 COPE 
1237 005066 005767 175244 TST CTSTFL ;IS CONSOLE UNDER TEST? 
1238 005072 001420 BEQ TST14 !IF NOT, SKIP THIS TEST 
1239 005074 032777 OO0100 173736 BIT #B1T6, ISWR ARE LINE CLOCK TESTS INHIBITED? 
1040 005102 O01014 BNE TST14 iif YES SKIP THIS TEST 
1241 OO0S104 013703 oo0004 MOV a84,R3 SAVE TIMEOUT VECTOR 
1242 005110 012737 005124 oo0004 MOV #15. 984 SET uP TEMEOUT VECTOR 
1243 005116 005777 175264 TST = @LKS SS Lk : 
Lea 005122 o0045e BR 2$ NO TIMEOUT - BR TO END OF TES" 
1246 005124 o22626 18: CMP (SP)+, (SP)+ sRESTORE SP AFTER TIMEOUT 
1e4? 005126 104010 ERROR 10 :CAN NOT ACCESS LKS 
1249 005130 010337 ooD004 2s: MOV R3, a84 sRESTORE TIMEOUT VECTOR 
1251 $ itter ig tee? THAT BITe OF LKG CAN BE CET & Rect 
1es2 TE TEST THAT BIT6 OF LKS CAN BE SET & RESET 
1253 LaHeapeeeneaneaieanennstsnt ones SHE OMEOEEOREEEOREESTESEESD ESD 
1254 005134 000004 +éT14: SCOPE 
1255 005136 005767 175174 TST CTSTFL IS CONSOLE UNDER TEST? 
1256 005142 001460 BEQ TSTIS if Nor SKIP THIS TEST 
1257 005144 032777 OOD100 173666 BIT #8176, ISWR LINE CLOCK TESTS INHIBITED? 
1258 005152 901054 BNE TSTIS iff VES, SKIP THIS TEST 
1259 005154 900005 RESET 
1260 005156 017703 175226 MOV ARTCVT, RB ;SAVE LINE CLOCK VECTOR 
1261 OCSi62 612777 OOSel2 175220 MOV #1$, IRTCVT :SET UP INTERRUPT VECTOR FOR ERROR REPORT 
lobe 005170 004767 O0S5046 JSR PC WRPSW :SET PSW TO PRIORITY 
1263 005174 900340 WORD 340 
1264 005176 032777 900100 175202 BIT #8176, dLKS :TEST BIT& OF LKS 
1265 005204 o01404 BEQ 2$ 
1266 005206 104033 ERROR 33 
1267 :BIT6 OF LKS NOT CLEAR AFTER RESET 
1268 905210 ooo4De BR 2 
1270 o0S2i2 O2eb26 18: CMP (SP)+, (SP)+ ;RESTORE SP AFTER INTERRUPT 
1271 O05214 104034 ERROR 34 : 
1272 :LKS INTERRUPT WITH PRIORITY=7 
1274 O0S216 052777 000100 175162 23: BIS #BIT6, aLKS :SET BIT6 OF _LKS 
1275 005224 030777 000100 i75154 BIT #816, LKS TEST ol fs OF LKS 
1e7e 005232 001001 
1278 005234 104035 ERROR 35 
1273 ;CANNOT SET BIT& OF LKS 
1281 005236 042777 COO100 175142 3%: BIC #8176, aLKS ;CLEAR BIT6 OF LKS 
1282 905244 030777 000100 175134 BIT #BIT6; aLKS :TEST BIT& OF LK 
1283 O05ese 001401 BEG 4$ 
1284 005254 104C36 ERROR 36 
Lees :CANNOT CLEAR BITE OF LKS 
1286 O0S25— oS2777 sColon 178122 4s: BIS #BIT, aLKS :SET BITS OF LKS 
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~MAIN. MACYL1 30(1046) L4-JUN-77 17:10 PAGE 28 PAGE: 0039 
DZOLDB.P11 14-JUN-77 09:27 T14 TEST THAT BIT& OF LKS CAN BE SET & RESET 

1287 005264 o000005 RESET ;CLEAR BIT6 OF LKS WITH RESET 

i288 005266 O3e777 000100 1751le BIT #B1T6,aLKS TEST BIT& OF LKS 

ioe o0S274 001401 BEQ 5$ ;BR IF CLEAR 

1291 005276 104037 ERROR 37 

1292 ;CANNOT CLEAR BIT6 OF LKS WITH RESET 

1293 005300 010377 175104 S$: MOV R3,dRTCVT SRESTORE LINE CLOCK VECTOR 


. 
Pei"? 


BO4 


.MAIN. MACY11 30/1046) L4-JUN-77 17:10 PAGE 29 PAGE: 0040 
DOL08.P1i 14-JUN-77 09:27 T14 TEST THAT BIT& OF LKS CAN BE SET & RESET 


i234 


1295 
12S6 + EESERELEASSALSAASESSLLAA SAAR AAAAAAA SAA SAAS SLAAAEAALAASASLA SLES 

1297 IHTEST 15 TEST FOR DUAL ADDRESSING OF REGISTERS 

1298 + + EELEKKSERSSARERRSS SERA ELARSREAE SE RAASAERALSAARSRA LEELA ALLA SESE 

12939 005304 000004 T15: SCOPE 

1360 005306 013703 o00004 MOV a84,R3 ; SAVE TIMEOUT VECTOR 

1301 005312 013704 000006 MOV 86, RY SAVE TIMEOU 

1302 005316 012737 905450 000004 MOV 84S ae4 :SET UP Tine UT VECTOR 

1303 005324 012737 000340 000006 MOV #340, dab ;KEEP PRIO=7 

1304 005332 900005 RESET CLEAR EVERYTHING 

130S 005334 012700 o00002 MOV #BIT1,RO :SET UP BIT MASK 

1306 905340 777 o00020 173472 BIT #BIT4) ISWR :CLOCK TEST ONLY? 

1307 005346 001404 BEQ 1$ NOT 

1308 005350 016767 175032 173442 MOV LKS, SGDADR SELSE, MOVE GOOD LKS ADDRESS INTO SGDADR 

1303 005356 000403 oe FL 

1310 005360 O16767 174762 173432 15: MOV RCSR, SGDADR ;MOVE GOOD RCSR ADDRESS INTO S$GDADR 

1311 005366 O16767 173426 173426 2S: MOV SGDADR $BDADR  :MOVE GOOD ADDRESS INTO TEST ADDRESS LOCATION 
1312 005374 040067 173422 BIC 0, SBDADR :CREATE BAD ADDRESS BY COMPLEMENTING ONE SIT 
1313 OOS4OO0 026767 173414 173414 CMP SGOADR, SEDAOR "ARE ADDRESSES IDENTICAL 

1314 O05406 001002 BNE 3$ LIF NOT, TEST THIS ADDRESS 

1315 905410 OS0067 173406 81S RO, SBDADR ELSE, BIT SET THIS BIT POSITION TO GENERATE BAD ADDRESS 
1316 005414 017767 173402 173402 3S: MOV JSBDADR, SGDDAT :SAVE’CONTENTS OF BAD ADDRESS IF IT EXISTS 
1317 OoS422 952777 900100 173372 BIS #B1T6, Oe éeDAOR :SET BIT& USING BAD ADDRESS 

1318 905430 032777 9000100 173362 BIT BBITE;aSGDADR  ;CHECK TO SEE IF GOOD ADDRESS CONTAINS BITE 
1319 905436 01011 BNE Es :BR IF SET ---) 

1320 SOSH4O 016777 173360 173354 MOV §GDDAT,@SBDADR RESTORE ANY MEMORY LOCATION THAT WAS ALTERED 
132i OOS446 900401 ae BR TO CONTINUE TEST 

1322 805450 O22626 48: CMP (SP)+, (SP)+ RESTORE SP AFTER TIMEOUT 

1323 905452 9006200 5s: ASL RO SHIFT BIT MASK TO NEXT POSITION 

1324 905454 905700 TST RO ;COMPLEMENTED ALL BITS FROM 1 - 15° 

1385 O05456 001243 BNE 2g R, I 

13ce O95460 9cd4ol ae 73 !BR'TO NEXT TEST 

o é 

1328 OOS462 104040 b: ERROR 40 :DUAL ADDRESSING ERROR 

1323 ;$BOADR = DUAL ADDRE 

2230 :$GDADR = GOOD ADDRESS 

ig3e OOS464 019337 990004 73: MOV. R3,ae4 ;RESTORE TIMEOUT vect OR 

3335 oos4 ‘ 70 QO] 0427 ooccos MOV RY ‘ dat ;REST ! ORE TIMECUT 


, 
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MAIN. stad 30; 10462 L4-JUN-77? 17:10 PAGE 30 ‘ PAGE: O04! 
SZDL08.P 09:27 T15 TEST FOR DUAL ADDRESSING OF REGISTERS 
ee 
o 
1335 Be SARERAERAAAALAAAAAHLSASLAARES AREA RA RLAAARSSARSLAREERAA ESS LESH 4 SS 
1337 :*TEST 16 TEST THAT BIT7 OF LKS SETS & CAN BE CLEARED 
1338 = = SRLEREFSLHAAAASRASRAAARARALALASRARSLARSAEARARARRSAARSFALASRASE SE 
1333 ooS474 jcD0004 tST16: SCOPE 
1340 005476 OOS7E7 174634 TST CISTEL :IS CONSOLE UNDER TEST? 
134i 005502 001437 BEQ TST17 7a NOT, SKIP THIS TEST 
1342 005504 032777 900100 173326 BIT 8176, aSWR LINE CL OCK TESTS INHIBITED? 
1343 905512 901033 BNE TST fe ES SKI 
1344 905514 900005 RESET ‘CLEAR bvERVTHING 8 SET BIT7 OF LKS 
1345 9005516 105777 174664 13: TST aLKS : TEST FOR BIT? OF LKS 
1348 o05522 100401 BMI 2$ :BR IF SET 
¢ 
1348 005524 104041 ERROR 4] :BIT7 OF LKS DID NOT SET WITH RESET 
1350 O0SS26 o42777 000200 174652 2S: BIC #BIT7, OLKS ;CLEAR BIT? OF LKS 
i3$1 005534 032777 900200 174644 BIT #BIT7, aLKS :TEST BIT7 OF LKS 
1352 o0ss4e o014:0 BEQ 3$ 
1353 905544 042777 o00e00 174634 Bic #8177, aLKS ; TRY ONE MORE TIME BECAUSE THE CLOCK 
1354 905552 022777 o00200 174626 BIT 8BIT7. aLKS : MAY HAVE SET IMMEDIATELY AFTER THE FIRST CLEGF 
1355 905560 901401 SEQ 3$ 
1357 o0ss5&2 10404e ERROR 42 :CAN NOT CLEAR BIT? OF LKS 
1363 005564 o95000 2¢: CLR RO :CLEAR TIMER 
1360 OOSS6& 105777 174614 CONT: TSTB 3LKS : TEST FOR BIT7 OF LKS 
1361 005572 190493 BMI TSTl? 
2362 905574 905200 INC RD iTS WSREMENT TIMER 
1363 005576 001373 BNE CONT ONTINTE UN nee L TIME EXPIRES 


1364 
1365 O0SE90 104043 ERROR 43 ;SIT7 OF LKS DOES NOT SET 


BOY 
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SZ20LD8.P11 §-3UN-7? 09:27 T1é TEST THAT BIT? OF LKS SETS & CAN BE CLEARED 
1367 
1368 5 RRLARLA LAA LEAR EAL A LARA LAER AAAS RARER ALSRER LEELA REA AL ELE LEE AALS 

. 1369 t MTEST 1? TEST THAT THE REAL TIME CLOCK INTERRUPTS PROPERLY 
137. ceageveneegpeeeanssenasencencateesseiMGNOnESAESAORESTESHEE Oa 
1371 OO0S602 co0004 +7) COPE 
1372 005604 005767 174526 TST CTSTFL 1S CONSOLE UNDER TEST? 
1373 005610 001503 BEQ TST20 iif Nor SKIP THIS TEST 
1374 O0S612 O32777 O00100 173220 BIT sBIT6, aSWR LINE CLOCK TESTS INHIBITED? 
1375 905620 00107 BNE TST20 eee VES SKIP THIS TEST 
1378 005622 OO4767 OO4414 JSR PC WRPSW :SET PSW TO PRIORITY 7 
1377 005626 900340 .WORD ~ 340 
1378 005630 017703 174554 MOV ARTCVT,R3 :SAVE LINE CLOCK VECTOR 
1379 005634 017704 174552 MOV JRTCPSW, RY :SAVE LINE CLOCK PSW VECTOR : 
1380 005640 O1e777 Oos702 174S42 MOV #23. ORTCVT :SET atc INTERRUPT VECTOR TO ERROR REPORT 
l 912777 000340 174536 MOV #340, aRTCPSH *KEEP PRIORITY AT 7 
1382 905654 O4e777 900200 174524 BIC #BIT?, aLKS ?CLEAR CLOCK DONE FLAG 
1383 005662 052777 OOCIOO 174516 BIS #BIT6;OLKS ;SET INTERRUPT ENABLE 
1384 005670 105777 174512 1S: TSTB = ALKS ‘WAIT FOR RTC DONE( INTERRUPT REQUEST) 
1385 005674 100375 BPL 1$ 
1386 905676 009240 NOP GIVE TIME FOR ANY INTERRUPTS 
1387 005700 o90d4ce BR 3 BR, IF NO INTERRUPT OCCURS 
1389 oOS792 D22626 23: CMP (SP)+, (SPi+ :RESTORE SP AFTER INTERRUPT 
1380 905704 194044 ERROR 44 ?RTC INTERRUPTS AT. PRIORITY 7 
auce 
1392 O0S706 oO0SO77 174474 3S: CLR aLKs ; DISABLE RTC INTERRUPTS & CLEAR DONE 
1293 905712 O12777 OosT4O 174470 MOV #43, IRTCVT :SET RTC INTERRUPT VECTOR FOR ERROR 
1294 905720 o04767 9004316 JSR PC. WRPSW :CHANGE PSW TO PRIORITY 5 
1395 005724 o00240 .WORD ~ 240 
13968 005726 105777 174454 20$:  #TSTB  aLKS :WAIT FOR DONE (INTERRUPT REQUEST) 
1397 905732 100375 BP. 208 
1398 005734 o90240 NOP GIVE TIME FOR ANY INTERRUPT 
1393 995736 o004ce2 BR $$ IF NO INTERRUPT - BR 10 CONTINUE TEST 
1401 OOS74O Oe2626 4g: CMP (SP)+, (SPi¢ sRESTORE SP AFTER INTERRUPT 
130 905742 io4o4s ERROR 45 RTC INTERRUPTS WITH INTERRUPTS DISABLED 
4 — 
1404 05744 012777 OO6000 174436 58: MOV #7$, RTCVT :POINT RTC VECTOR ro END OF TEST 
1405 005752 042777 900200 174426 BIC #BIt?, SLKS ; CLEAR CLOCK DONE FLAG 
1406 005760 052777 OO0I00 174420 BIS w8IT6 aLKs ‘ALLOW INTERRUPTS 
1407 905756 105777 174414 &$: TSTg aks | WAIT FOR RTC DONE 
1408 005772 100375 BPL &$ 
1308 905774 900240 NOP -GIVE TIME FOR INTERRUPT 
ai 005776 10404 ERROR 46 :RTC INTERRUPT DID NOT OCCUR 
1413 QOECOO oezezE 7$: CMP (SP)+, (SP)4 :RESTORE SP AFTER INTERRUPT 
1414 06002 942777 cD01:00 174376 orc #8IT6OLKS “DISABLE INTERRUPTS 
14:5 06019 019377 174374 Moy RI. aRTCVT : RESTORE LINE CLOCK VECTOR 
M41 SOEDIS 515477 174372 may RY IRTCPSW !RESTORE LINE CLOCK BSW VECTOR 
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JMBIN. MACYLL 30(1045) L4-JUN-77 17:10 PAGE 32 PAGE: C042 
SIDLOB.P11 9 L4-SUN-77 09:27 Tl? TEST THAT THE REAL TIME CLOCK INTERRUPTS PROPERLY 
1418 
2420 
1421 
1422 s REESE RLLL AH LL KAKA LAK EAAA ER AAAA LAL AL ERE LER ERAS RELERRAALELA REELS 
1423 TATEST 20 TEST RTC FOR DOUBLE INTERRUPTS 
1424 © s RERRKHSSSARA SAK AALS LEA AAAA EELS AA LL AA AA RA AAA EAA EAA LAELA LALA LALA 
1425 006020 o00004 tSt20: SCOPE 
1426 006022 OOS7E7 174310 TST CTSTFL :1§ CONSOLE UNDER TEST” 
1427 006026 001457 BEQ TSTel ;1F NOT, SKIP THIS TEST 
1428 006030 032777 000100 173002 BIT #8116, ASHR ARE LINE CLOCK TESTS INHIBITED? 
1423 006036 901053 BNE TST2l SIF YES, SKIP THIS TEST 
1430 006040 000005 RESET :CLEAR EVERYTHING 
1431 906042 017703 174342 MOV ARTCVT, RI SAVE LINE CLOCK VECTOR 
1432 006046 017704 174340 MOV ARTCPSW, RY ;SAVE LINE CLOCK PSW_ VECTOR 
1433 006052 012777 O06122 174330 MOV 82S, IRTCVT :SET UP RTC INTERRUPT VECTOR 
1434 006060 012777 S00340 174324 MOV 340, dRTCPSW § :DISALLOW INTERRUPTS AFTER THE INTERRUPT 
1435 006066 904767 004150 JSR —- PC, WPS SET PRIORITY TO 5 
i436 O06072 O00240 WORD _ 240 
1437 06074 O42777 cOoe200 174304 BIC #BIT?,QLKS ;CLEAR CLOCK DONE FLAG 
1438 906102 052777 900100 74276 BIS wBIT: aLKS ENABLE CLOCK INTERRUPTS 
1439 O06110 105777 174272 1$: TSTa = LKS WAIT FOR DONE 
1440 906114 100375 BPL 1$ 
144i O0bi16 O00246 NOP ;GIVE TIME FOR ANY INTERRUPT 
i343 006120 104047 ERROR 47 ;RTC INTERRUPT DID NOT OCCUR 
1445 006122 022626 , 23: CMP (SP)+, (SP)+ RESTORE SP AFTER INTERRUPT 
1446 O06124 Ole777? OOb144 174256 MOV #33, IRTCVT POINT RTC VECTOR TO ERROR REPORT 
1447 OO6132 004767 004104 ISR PC, WRPSW SET PSW TO PRIORITY S 
1448 006136 900240 WORD ~ 240 
1443 00614O 900240 NOP GIVE SOME TINE FOR AN INTERRUPT 
i#s0 OObI4e OoD4ce ce 4$ NO INTERRUPT - BR TO END OF TEST 
=4 
1452 ODO6144 O2262¢ 38: CMP (SP)+, (SP)4 RESTORE SP AFTER INTERRUPT 
1453 O06i4s 104050 ERROR 50 INTERRUPT SEQUENCE DID NOT CLEA 
1454 ; INTERRUPT REQUEST 
2IS3 
i45E Q06150 O4e777 900100 174230 4s: BIC #8ITG, ILKS DISABLE CLOCK INTERRUPTS 
1457 0615 019377 17422 MCV R3,aRICVT :PEST ORE LINE CLOCK VECTO 
i452 SDEigse 15477? i74e24 MOV RS" RTCPSW SRESTORE LINE C tate PSL VECTOR 
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MAIN. MACYLL 30(1046) 14-JUN-77 17:10 PAGE 33 PRGE: = OC44 
OZDLDB.P1L1 «= 14-JUN-77 09:27 T20 TEST RTC FOR DOUBLE INTERRUPTS 
1459 
1461 5 RRREK RARE RAE RAL KALA ALL ARAL ALL AAA EAA LAL ARAL SLA RERRLL ALE AKL ARES 
1462 TATEST 21 TEST THAT RTC INTERRUPT CLEARS WITH RESET 
1462 s REKKS ARAL AA LAA LAKE LA RAE AE AAR ERE REARRA AR AA AAA LAA ARAL EL ALL RALLES 
1464 006186 000004 té121: SCOPE 
i465 006170 OOS767 174142 TST CTSTFL :1§ CONSOLE UNDER TEST? 
1466 006174 001442 BEG TST2e IF_NOT, SKIP TH 
1467 006176 032777 OOC1O0 172634 BIT #BIT6, 2SWR :ARE LINE CLOCK TESTS Inauerteo” 
1468 906204 001036 BNE TST2e :IF_YES, SKIP THIS TEST 
1465 006205 OO4767 004030 JSR = PC, WRPSW ;SET PRIORITY TO 7 
1470 06212 000340 WORD 340 
i471 906214 017703 174170 MOV DRTCVT,R3 ;SAVE_LINE CLOCK VECTOR 
1472 OOb220 Ole777? OOb272 174162 MOV #23, IRTCVT POINT RTC VECTOR TO ERROR REPORT 
1473 006226 O4e777 000200 174152 BIC BI t7,aLKS CLEAR CLOCK DONE FLAG 
1474 906234 OSe777 900100 174154 BIS #BITE,aLKS ENABLE CLOCK INTERRUPTS 
1475 006842 105777 174140 18: TST aLKS WAIT FOR DONE CINTERRUPT REQUEST) 
i47— O06246 100375 BPL i$ 
1477 906250 000905 RESET ;CLEAR PENDING INTERRUPT WITH RESET 
1478 906252 004767 o03764 JSR PC, WRPSW :SET PRIORITY TO S 
1479 006256 900240 «WORD 240 
1480 906260 90c340 NOP GIVE TIME FOR ANY INTERRUPT 
1481 O06262 O42777 g00100 174116 BIC #B1T6,aLKS DISALLOW INTERRUPTS 
i4Be O06270 Soo40e =e 3$ :BR TO END OF TEST 
1484 O0G272 22626 28: OMe (SP)+,(SP)+ :RESTORE SP QPTER INTERRUPT 
“és D0es74 10405: ERROR 5] RESET DID NOT CLEAR INTERRUPT 


¢ OObE"E OL0377 176206 38: MOV R3, aRTCYT sRESTORE LINE CLOCK VECTOR 
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174024 


009200 
003644 


006200 
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él TEST THAT RTC INTERRUPT CLEARS WITH RESET 


5 RRSRASRARASAASRSSA LARA LASALAA AAA EA ALAA ARAL AHL A RAF SSLAALAAAF FLEE 


:*TEST 22 TEST THAT RTC INTERRUPT CLEARS BY CLEARING BIT7 OF LKS 
gag 4 peter aint acs meas alten yok amaateriemn aba consent 
TST CTSTFL :IS CONSOLE UNDER TEST? 
BEQ TST23 — $IF_NOT, SKIP THIS TEST 
BIT #8176, JSWR : ARE OTWE’C CLOCK TESTS INHIBITED? 
BNE TST23 ‘IF YES, SKIP THIS TEST 
ISR PC. WRPSW “SET PRIORITY TO 7? 
.WORD 340 
MOV JRTCVT RB »SAVE LINE CLOCK VECTOR 
MOV #23, IRTCVT :POINT RTC VECTOR TO ERROR REPORT 
BIC #81t7, aLKS :CLEAR CLOCK DONE FL AG 
BIS #8176, aLKS ‘ENABLE CLOCK INTERRUPTS 
1$: 1378 aLk LKS :WAIT FOR DONE CINTERRUPT REQUEST 
BI¢ ag1T? aLKS :CLEAR DONE & INTERRUPT 
ISR PC AR WRESW a. ALLOW INTERRUPTS 
NOP :GIVE TIME FOR ANY INTERRUPT 
BIC e8ITS,aLKS :DISALLOU INTERRUPTS 
oF 3 :BR TC END OF TEST 
23: CMe (SP)+, (SP)+ sRESTORE SP AFTER INTERRUPT 
ERROR Se :CLEARING BIT7 OF LKS DIC NOT CLEAR INTERRUPT 
33 MOV R3, IRTCVT RESTORE LINE Shock, VEC TOR 
Se PC WRAPS “RESTORE P 
WORD 382 


UU Un UO 
re ks 
mom Ut 
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MACYL1 30/1046) L4-JUN-77 17:10 PAGE 35 PAGE: 

ll L4-JUN-77 09:27 T22 TEST THAT RTC INTERRUPT CLEARS BY CLEARING BIT? OF LKS 
;AHERRREERAEROESEEEEERAEEOSEEESEELERELAEAAAESIAEAERES SDE EEES SOF 
‘STEST 23 TEST CLOCK REPEATABILITY 
ee ee re ee ee 

906430 900004 +4723: SCOPE 

006432 OCS7E7 173700 TST CISTEL i] CONSOLE E UNDER. TEST” 

006436 01462 BEQ TSTo4 NOT. SKI 

006440 O32777 OO0100 172372 8! #8176, ISWR ARE LINE CLOCK TESTS INHIBITED” 

O08446 OO10SE BNE TST24 [IF YES, SKIP THIS TEST 

006450 OS2777 900100 173730 BIC #BIT&,ILKS :DISALLOW INTERRUPTS 

o064S&6 o0s5000 CLR RO :CLEAR A TIMER 

006460 012701 177777 MOV #-1,R1 :SET @ FLAG G INDICATING FIRST PASS THRU THIS LOOP 

Os464 9050 18: CLR P2 :CLEAR CLOCK 

6466 OOSO7? 173714 CLR aLKSs :CLEAR DONE 
006472 105777 173710 2$: TST8 = ALKS :SYNC ON DONE 
476 100375 p BPL 23 

006500 005077 173792 CLR aLKS : CLEAR DONE 

806504 105777 173676 2¢: TST aLKS 215 cLOCK k_DON E? 

006510 100003 BPL 4§ :BR IF TO INCREMENT TIMER 

906512 905202 ING Re : TF BoNee T ACREMENT €LOCK COUNT 

006514 O05077 173666 CLR aLKS CL R DONE 

p06520 9cse00 4g: INC R INCREMENT TIMER 

906522 001370 BNE 3$ :BR IF TIME REMAINS 

006524 905201 ING R} : INCREMENT LOOP PASS FLAG 

006526 901003 BNE CMPARE :BR IF TWO PASSES HAVE BEEN MADE 

006530 010267 son044 MOV R2, FIRST :IF NOT, STORE FIRST CLOCK COUNT 

006534 000753 BR 1$ :00 LOOP AGAIN 

006536 016791 900036 CMPARE: MOV FIRST,R1 :RECALL FIRST CLOCK COUNT 

o06542 169201 SUB Re Ri ; CALCULATE DIFFERENCE OF TWO COUNTS _ 

O06544 10000: BPL TOLER :IF POSITIVE, SKIP NEGATION OF DIFFERENCE 

g0es4e 90549) NEG Ri "MAKE DIFFERENCE A POSITIVE NUMBER 

806550 020127 900001 TOLER: CMP Rl, #1 :COMPARE DIFFERENCE WITH DESIRED TOLERANCE 

p06554 903403 BLE $ :BR, IF LOWER“EQUAL TO TOLERANCE 

Q0ESSE O10267 d00020 MOV R2, SECND : STORE SECOND COUNT 

no06s$2 104053 ERROR $3 OCK REPEATABILITY ERROR 

OO&SE4 032777 000020 172246 58: IT #2274, ISWR yen TESTS ONLY? 

O0e572 301404 BEQ TSTz2 :BR IF NOT 

O06574 O001E7 o03z0e2 IMP sec ELSE, JUMP TO END OF PASS ROUTINE 

so6609 opp000 FIRST: .WORD 0 

oie 4 4ul-Memelaleislele sécND: iWORD & 
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JMAIN. MACYLL 30(1046) 14-JUN-77 17:10 PAGE 36 PAGE: O04? 
DPDLDB.P11 14-JUN-77 09:27 122 TEST CLOCK REPEATABILITY 
“igs 
] ¢ Pee ee TENT ATERRUPTS ONLY WHEN ENOBLED 
Bes teTEST 24 TEST THAT XMIT INTERRUPTS ONLY WHEN ENABLED 
] of: I I RR ee a Bl a 
1576 o06604 oD0004 +éT24: SCOPE 
1571 906606 O42777 OO00190 173536 BIC #8176, JTCSR ;CLEAR TRANSMIT INTERRUPT ENABLE 
a eee picts terag 173534 ay aTvEct Re :BOINT XHIT. VECTOR TO ERROR REPORT 
1854 Poppse Okecce OOgRSS ISH Os, Mee, OAF RAR att FOR DO 
i575 006632 100375 BPL 1$ 
1576 006634 004767 002402 ISR PC, WRPSW yom PSW TO PRIORITY 3 
i577 096640 000140 .WORD «140 
1578 oo0e642 o00402 BR 3g 
¢ 
1580 O06644 OP2626 23: CMP (SP)+, (SP)+ RESTORE SP AFTER INTERRUPT 
1581 OSOB646 104054 ERROR SH 
1582 sxMIT I INTERRUPTS WITH INTERRUPT ENABLE CLEAR 
1583 OO66SO0 O12777 O0b670 173504 238: MOV #4$, JTVECT XMIT VECTOR TO END OF TEST 
1584 O06656 OS2777 OOC1D0 173466 BIS #BIT&,aTCSR “ENABLE INTERRUPTS 
1385 006664 900240 NOP 
1387 OOBESE 104055 ERROR SS :XMIT DID NOT INTERRUPT 
1589 O06670 O4e777 DODIOD 173454 4S: BIC #BIT6,aTCSR ;DISABLE INTERRUPTS 
i580 OObE7E De3E26 Me (SP) +, (SE )+ TRESTORE SP AFTER INTERRUPT 
1591 906700 10377 173456 MOV R32, ITVECT ?RESTORE XMIT VECTOR 
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MAIN. MACYL1 30(1046) I4-JUN-?? 17:10 PAGE 37 PAGE: OO4E 
D2DLDS8.P11 14-JUN-77 09:27 T24 TEST THAT XMIT INTERRUPTS ONLY WHEN ENABLED 
Be + RERRSERSREERERER SERRA SEAR SRS RR AAA LRA AAAS SRE RAA RAR LAL LAERAAE 
1595 -4TEST 2 TEST THAT XMIT INTERRUPTS DO NOT OCCUR WHEN DISABLED 
15396 © REESE SSERERERRRE RA RRA RR AA ALAR SASSER LARRA RE RERASSRA ALA E ARAL SALE 
1597 06704 000004 t$T25: SCOPE 
1598 006706 O4e777? OO0100 173436 BIC #B1T6, aTCSR ;DISABLE INTERRUPTS 
1593 006714 OO47E7 9003322 JSR PC, WRPSW SET PSW TO PRIORITY 7 
1600 006720 000340 WORD 34 
1601 O06722 017703 173434 MOV aTVECT,R3 :SAVE XMIT VECTOR 
1602 006726 Ole777 006754 173426 MOV #23, JTVECT :POINT XMIT VECTOR TO ERROR REPORT 
1803 006734 105777 173412 18: TSTB at TCSR WAIT FOR DONE 
1604 906749 003 BF 1§ 
i605 74 77? oo0100 173402 I #81T6, aTCSR sENABLE INTERRUPT 
1806 006750 O00240 NOP 
1607 006752 900402 BR 3 sCONTINUE TEST 
es 
1808 06754 O22626 23: CMP (SP) +, (SP)+ ;RESTORE SP AFTER INTERRUPT 
1610 006756 [04056 ERROR 56 
tEi3 006 42777 OO0100 173364 3$ BIC BITS. aTCSR aes AR INTERRUPT. ENG BN \ ambien J 
: 8 
1613 006766 012777 ppgh 173366 MOV rt Metal i LEAR XMI AT ons TO. LE ROR REPORT 
1614 006774 OO4767 903242 ISR PC. WRPSW ISET PSW TO PRIORITY 
1615 007000 900140 JWORD ~ 140 
ig16 997092 990e40 NOP 
igi7 907904 o004o2 BR S$ :8R TO END OF TEST-NO INTERRUPT 
i619 OOTODE o22E26 4§: CMP (SP)+, (SP)4 :RESTORE SP AFTER INTERRUPT 
1620 907010 194057 ERROR 57 
1621 :XMIT INTERRUPT OCCURES WITH SITE ZLEAS 
lé22 CO70i2 OL0277 173344 Ss: MOV R3, aTVECT :RESTORE XMIT VECTOR 
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007134 


007236 


007240 
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022526 
104061 
010377 
010477 


003164 
173266 
900100 


007130 
003126 


000190 


000190 
003062 


i317 


173140 


173134 
003016 


000100 


173324 


173316 


173312 


173256 


173252 


173224 


173176 


173114 
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Tes TEST THAT XMIT INTERRUPTS DO NOT OCCUR WHEN DISABLED 


fy RRRERE REAR REAR RER AERA RARE RA RAA ALAA LRA RA AA ALE LELALRERELEL AL ALES 


:#TEST 26 TEST TRANSMITTER FOR DOUBLE INTERRUPTS 
ee re re ees 
" Bic #8IT6, aTCSR ;CLEAR INTERRUPT ENABLE 
MOV atvect R3 : SAVE xi V 
MOV TPSW. RY XMIT PSW VECTOR 
MOV #2$ StVECT SET UP XNIT VECTOR 
MOV #340 aTPSW :SET PIO 7 AFTER INTERRUPT 
JSR PC AUR WRPSW a. :SET PSW TO PRIORITY 3 
18: ISTE arcsr :WAIT FOR DONE 
BIS #BIT6,3TCSR sENABLE INTERRUPTS 
ERROR 60 
;XMIT INTERRUPT DID NOT OCCUR 
23: CMP (SP)+, (SP)+ ;RESTORE SP AFTER INTERRUPT 
MOV #4$, JTVECT :POINT XMIT VECTOR TO ERRO 
ISR PC, WRPSW :SET PSW TO PRIORITY 3 
-wWwoRD §=.:140 
NOP ;GIVE TIME FOR ANY INTERRUPTS 
BIC #BIT6,aTCSR ;DISABL LE INTERRUPTS 
BR S$ :BR TO END OF TEST 
4g: CMP (SP)+, (SP)+ sRESTORE SP AFTER INTERRUPT 
ERROR 61 
;XMIT RE-INTERRUPTED 
S$: MOV R3, ATVECT ‘RESTORE XMIT VECTOR 
MOV RY; aTPSW RESTORE XMIT PSW VECTOR 
5 RELREALARAAA RAR RASAAA LA RASA RALAAA LAA LA LAASAAAAAARALARRARAREARA TE 
t STEST 27 TEST THAT XMIT INTERRUPT CLEARS WITH LOADING TBUF 
OO a up ec ile aac eet aaa Silents ss 
#B1T6, aTCSR ;DISABLE INTERRUPTS 
JSR pC URPSH :SET PSW TO PRIORITY 7 
MOV aTVECT,R3 ;SAVE XMIT VECTOR 
MOV #2$, JTVECT POINT XMIT VECTOR TO ERROR 
BIS ueite, aTCSR iE IN TERRUPTS 
18: S78 aTCSR :WAIT FOR DONE (INTERRUPT) 
FP BUF sFILL SECOND BUFFER TO RESET INT. 
ISR PC, WRPSW !ALLOW INTERRUPTS 
-WORD ” 140 
NOP ;GIVE TIME FOR ANY INTERRUPTS 
BIC #8176, aTCSR :DISABLE INTERRUPTS 
BR 33 :BR TO END OF TEST 
2s: CMP (SP)+, (SPi¢ :RESTORE SP AFTER INTERRUPT 
ERROR 62 
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MAIN. -MACYLL 30(1046) _14-JUN-77 17:10 PAGE 39 PAGE: 0050 
OZOLOB.P2i 14-JUN-77 09:27 Te? TEST THAT XMIT INTERRUPT CLEARS WITH LOACING TBUF 


1679 ;LOADING TBUF DID NOT CLEAR INTEPRUPT. 
1PEt core44 010377 173112 3$: MOV R3, aTVECT ;RESTORE XMIT VECTOR 
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e 
042777 
104063 


001401 
104115 


042777 


0 

104065 
oggo0s 
105777 
001404 


042777 
LO4OEE 


oo0004 


173064 
004000 


oo0004 


004000 


000004 
000000 


174424 
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172756 
172744 
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004000 
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TEST THAT XMIT INTERRUPT CLEARS WITH LOADING TBUF 


[FEreemsunedneee pessenssuncusnenescrercconnensenegetereertarees 
TEST THAT RCVR ACTIVE (11) & DONE (7) SET & CLEAR PROPERLY 


‘ETE 
+8130 


WACTV: 


2s: 


3$: 
WT: 


4§: 


WOONE : 


cs: 


6$: 


a alan 
a TBUF 
#BIT11,dRCSR 
es 

WACTY 
#BIT2,aTCSR 
63 
#BIT11,@RCSR 
3$ 

115 

RO 
s81T2,aTCSR 
#0, RO 


WT 
BIT11,aRCSR 
4§ 


#BIT2,aTCSR 
116 


RO 
aTBUF 
JRCSR 
S$ 
RO 


WOONE 
#81Te, aTCSR 
64 


#B1T11,aRCSR 
#B81T2,aTCSR 
65 


aRCSR 
7$ 


#81T2,aTCSR 
bE 


eeneengeeyeeaveneensresnsesseasteseaneensnesseaaeenstenseesss 


;CLEAR EVERYTHING 
SET MAINTENANCE WRAP 
i PhERN A TIMER 

;LOAD TRANSMIT BUFFER 
; TEST RCVR ACTIVE BIT 


SET 
EINCRENEN NT TIMER IF NOT SET 
;CONTINUE WAIT IF TIME REMAINS 
:CLEAR MAINTENANCE BIT 


;RCVR ACTIVE DID NOT SET WHILE RECEIVING 
;VERIFY “INIT” CLEARS RCV ACTIVE 


; INIT DID NOT CLEAR RCV ACTIVE 


;CLEAR A TIMER 
;SET MAINTENANCE. W 
:WAIT AT LEAST SNE BIT TIME 


sVERIEY RCV ACTIVE STILL CLEAR 
;BR IF CLEAR 


;CLEAR MAINTENANCE WRAP 
:RCV ACTIVE WITHOUT “START” BIT 


;CLEAR TIMER 
:LOAD TRANSMIT BUFFER 

; CHECK FOR RECEIVER DONE 

: INCREMENT TIMER, IF NOT DONE 
:CONTINUE WAIT IF TIME REMAINS 
:CLEAR MAINTENANCE BIT 

;RECEIVER DONE NEVER SET 

CHECK FOR RCVR ACTIVE CLEAR 

Brean MAINTENANCE BIT 

;RCVR ACTIVE DID NOT CLEAR WITH RCVR 


;CLEAR DONE WITH RESET 
;CHECK FOR DONE CLEAR 


DONE 


;CLEAR MAINTENANCE SIT 


00 


c 


~ 


i 


0; 


~MAIN. MACY11 30(1046) I4-JUN-77 17:10 PAGE 41 
DZOLDB.P11 14-JUN-77 09:27 T30 TEST THAT RCVR ACTIVE (11) & DONE (7) SET & CLEAR PROPERLY 


1738 ;RESET DID NOT CLEAR RCVR DONE 
( 

1740 007460 042777 000004 172660 7S: BIC #81T2,dRCSR ;CLEAR MAINTENANCE BIT 

1741 007466 000400 BR TST31 ;BR TO NEXT TEST 


vy 


PAGE: 


OGSe2 


BOS 


.MAIN. MACYL] 3O( 1046) I4-JUN-77 17:10 PAGE Ye : PAGE: 0052 
d2DLDB.P ll 14-JUN-77 09:27 T30 TEST THAT RCVR ACTIVE (11) & DONE (7) SET & CLEAR PROPERLY 
tous 
1744 ; RRLEEERE ERE SELES LER ERE EELS EERE ERLE AERA LEAR EE EELS ESSE EEE EE 
1745 t STEST 31 TEST THAT ROR ENABLE CLEARS RECEIVER DONE FLAG 
i74é os RES SELLS SERESESRSE SERRE EEE EEL EELS EERE SERRE SSSAASS SELLS LES ES 
1747 OO747D § OoooCY t§T31: SCOPE 
1748 9007472 O00005 RESET CLEAR EVERYTHING 
1749 «007474 OS2777 OO0001 i72644 BIS #BI1T0,aRCSR T ROR ENABLE 
1750 007502 OSe777 O00004 172642 BIS sBIT2, aTcsR SET ye alta cot 3 WRAP 
17Si 007510 7? 6172640 CLR aT BUF LOAD TR ER 
17S2 GO7Si4 105777 172626 1$: TSTB @RCSR : WAIT FOR RECEIVER DONE 
1753 9007520 100375 BPL i$ 
1754 007522 77; O000Ci 172616 BIT #BITO,aRCSR VERIFY RCV ACTIVE~CLEARED RDR ENABLE 
ite 007539 001401 BEG 2s : BR IF CLEAR 
af 
fe r4 007832 104117 ERROR 117 ;RDR ENABLE NOT CLEARED WITH RCV ACTIVE 
1789 007534 OSe777 900001 172604 2: BIS #BITO,aRCSR ;CLEAR DONE BY SETTING ROR ENABLE 
1760 007542 1057 172600 TST8 aJRCSR : CHECK FOR DONE CLEAR 
1761 007S46 9001404 BEG TST32 :BR IF CLEAR TO NEXT TEST 
1762 O075S0 042777 O0COO4 172574 BIC #BIT2,aTCSR CLEAR MAINTENANCE BIT 
1763 007556 104067 ERROR 67 
tobe ;SETTING RDR ENABLE DID NOT CLEAR RCYR DONE 
175e 
1767 
17&8 + LLLAASERS ERE SELES E SERS S ASHES SESSA LEAL SEAL SALA LE SALES PLESLERE LS 
1763 TEST 32 TEST THAT READING RBUF CLEARS RECEIVER DONE 
1770 9-1-5 talalal +$-+-t-lelalabataialalahahatababaiaitetsiniaiaiaieiaiaialahaiaiaiiaiaisiaiaiaiaieieisisieisieieiiaiahsieicie 
1771 007560 900004 +8132: SCOPE 
i77é 00756e 000005 RESET CLEAR EVERYTHING 
1773 007564 OSe777 O00004 172560 BIS sBIT2,aTCSR ICET MAINTENANCE WRAP 
1774 90757e 005077 172556 CLR a TBUF sLOAD TRANSMITTER 
1775 007576 105777 172544 1S: TST aJRCSR WAIT FOR RECEIVER DONE 
177 Ce 100375 BPL 1$ 
1777 .007694 017700 172540 MOV JRBUF , RO ;READ RECEIVE BUFFER 
1778 007610 O42777 SO0004 172534 BIC eBlTe, aTcsR CLEAR MAINTENANCE SIT 
1779 907 16 105777 172524 TSTS aRC :CHECK FOR RECEIVE DONE CLEAR 
2780 CO7t2ee 001401 : BES #sY33 :BR, IF CLEAR TO NEXT TEST 
1781 OC7ee% 194070 ERROR 79 


7555 pect :READING RBUF DID NOT CLEAR RCV DONE 


To 


@w 


3~3~)~)~3~ 


0-= b= b+ bo pepe 
bet brit 


WM I~ IIIS 
(FUSE Dio SeRUn Etre 


oOoc RARER 


= 0-5 0-2 = 2D + hs = bo b+ bb be + be = 0 0 2 be he he ho Be Be 
SOULE tur-O.00) 


2 b+ bs hs he 


“> 
->- 
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Fire ee 
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ococo4 


pooi99 
900004 


172260 


7:10 PAGE 
T32 


+813 


1$: 


3$: 


4$: 


 ETEST 


COS 


43 
TEST THAT READING RBUF CLEARS RECEIVER DONE 


#8176, aTCSR 

#BIT6; aRCSR 

aBiTe, aTCSR 
aRVECT,R 

82S, SRVECT 


140 


1$ 
sB8IT2,aTCSR 
3$ 


#81T2,aTCSR 
{SP)+,(SP)+ 


#4$, IRVECT 
#BI TE, aRCSR 


#81T2,aTCSR 
72 


5 RRR RERER AERA REE RE ERE E RELEASE EERE LAER EEE EEA EEE LEL EEE ESSE ES 

TEST THAT RCVR INTERRUPTS ONLY WHEN ENABLED 

"ang 2 ime ane aR re a cameo eine me 
COPE 


;DISABLE TRANSMIT INTERRUPTS 
iD ae ager 


ve v VECTOR 
te RCV VECTOR TO ERROR REPORT 
SET PSW TO PRIORITY 3 


;SEND A CHARACTER 
;WAIT FOR RECEIVER DONE 


;CLEAR MAINTENANCE BIT 
CONTINUE TEST 


;CLEAR MAINTENANCE BIT 
RESTORE SP AFTER INTERRUPT 


;RECEIVER INTERRPUTS WITH INT. 


;POINT RCV VECTOR TO END OF 

i ENABLE RCV INTERRUPTS 
GIVE ANY INTERRUPTS TIME 

CLEAR MAINTENANCE BIT 


;RCOVR DID NOT INTERRUPT 


;DISABLE INTERRUPTS 

:CLEAR MAINTENANCE SIT 
SRESTORE SP AFTER INTERRUPT 
RESTORE RECEIVE VECTOR 


ENABLE CLEAR 


b+ SEED ebeben ene 
coco 0D 
Fora me rasaee saeo ee 
WjWwirue- O.w0w . 
me) 


“3 


fo 
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UTEST QU TEST THAT RCVR INTERRUPTS DO NOT OCCUR WHEN D1ece 
TES 


T 34 TEST THAT RCVR INTERRUPTS DO NOT OCCUR WHEN DISABLED 
eclanekeavetebtansaasanaantnedhnadaatunlastunsenantnanananisnes 
776 o00004 eee SCOPE 
010000 oog00s RESET :CLEAR EVERYTHING 
010002 OO47&6? 002234 JSR PC, WRPSW :SET PSW TO PRIORITY 7 
010006 900340 .WORD 340 
919010 O17703 172342 MOV JRVECT,R3 : SAVE RECEIVE VECTOR 
010014 012777 O100S4 172334 MOV #2$, IRVECT :POINT RCVR VECTOR TO ERROR REPORT 
0022 OS2e777 000004 172322 BIS ab ite, aTCSR ‘SET MAINTENANCE WRAP 
10030 005077 172320 CLR aT8 :SEND A CHARACTER 
9034 105777 172306 1$: TSTB SReSR “WAIT FOR RECEIVER DONE 
0040 100375 BPL 1$ 
010042 OSe777 900100 172276 BIS #BITS,IRCSR ; ENABLE INTERRUPTS 
010050 900240 NOP :GIVE TIME FOR INTERRUPT 
010052 900405 PR 33 CONTINUE TEST 
010054 o42777 oo0D4 172270 2s: BIC #81T2,aTCSR '€LEAR MAINTENANCE BIT 
0062 Oe2b26 CMP (SPj)+! (SP)+ ‘RESTORE SP AFTER INTERRUPT 
910064 104073 ERROR 73 
:RCVR INTERRUPTS AT PRIORITY 7 
o0&& o42777 ON01C0 172252 38: BIC #8176 aRCSR : CLEAR INTERRUPT ENABLE 
0974 Ole777 O10le2 172254 MOV aRVEC T POINT RCVR VECTOR TO ERROR REPORT 
C102 004767 902134 ISR Pe tty :SET PSW TO PRIORITY 3 
0196 900140 WORD ee 
9119 9002409 NOP ;GIVE TINE FOR ANY INTERRUPT 
Olle O42777 oOD0004 172232 1¢ sBIT2,aTCSR ‘CLEAR MAINTENANCE BIT 
0120 900405 8R s$ :8R TO END OF TEST, “IF NO INTERRUPT 
C122 o42777 O000D4 172222 48: BIC eg172 ,aTCSR :CLEAR MAINTENANCE BIT 
0130 Se2626 CMP (SP)+! (SP)+4 TRESTORE SP AFTER INTERRUPT 
3132 i047 ERROR 374 
a A 4 ROVR INTERRUPT REQUES? PASSED WITH SITE CLEAS 
O10i394 OL0377 172216 53: MON R2,adRVECT PRESTO ORE RECEIVE ¥ 


2USIN. heey li 30; 1046) i4-JUN-77 17:10 PAGE 4S PRGE: COSE 
DLOE.P12 14-JUN-"? O9:27 T34 TEST THAT RCVR INTERRUPTS DO NOT OCCUR WHEN DISABLED 


vewiwec. 


1954 
1gs5 
1856 ‘ i s SLSERERAAASEAERAS RELA AAAAAAAAS SAA RAEAASE HALE LA SAFRA LAA RELS SLE SES 
1857 :#TEST 35 TEST RECEIVER FOR DOUBLE INTERRUPTS 
1858 * aay pips tacgansanaegme tame io mares oec acceptances pic 
1859 c1014O0 o00004 +87 COPE 
1869 o1014e 900005 RESET ;CLEAR EVERYTHING 
1861 010144 017703 172206 MOV JRVECT,R3 :SAVE RECEIVE VECTOR 
182 010150 O17704 172204 MOV JRPSW, RY :SAVE RECEIVE PSW VECTOR 
1863 O0:0154 012777 010236 172174 MOV 823 SAVECT ‘POINT RCV VECTOR TO CONTINUE TEST 
1864 010162 012777 900340 172170 MOV #340, JRPSW :SET PRIORITY TO 7 AFTER INTERRUPT 
1865 010170 004767 O0204%6 JSR PC WRPSW ‘SET PSW TO PRIORITY 3 
1866 010174 000140 .WORD — 140 
1887 019176 0S2777 OOD0D4 172146 BIS #BIT2,aTCSR : SET MAINTENANCE WRAP 
1868 010204 905077 172144 CLR aTBUF :SEND A CHARACTER 
1863 19210 105777 172132 18: TSTB  a@RCSR :WAIT FOR RCVR DONE 
1870 010214 190375 BPL 1$ 
ig? 010816 O4e777 oO0004 172126 BIC aBITe, aTCSR :CLEAR MAINTENANCE BIT 
1872 010824 OSe777 OO0100 172114 BIS #BITE! aRCSR ‘ENABLE RCV INTERRUPTS 
1873 910232 900240 NOP :GIVE SOME TIME 
¢ 
1875 010234 104075 ERROR 75 
igre :RCVR INTERRUPT DID NOT OCCUR 
auf 
1878 010236 o2rE26 23: CMP (SPs (SP)+ ;RESTORE SP AFTER INTERRUPT 
1879 010240 012777 oO10e76 172110 MOV SRVECT :POINT RCV VECTOR TO ERROR REPORT 
1880 010246 o04767 991770 ISR 528,30 :RESET PSW TO PRIORITY 3 
1881 O192S52 900149 .WORD #140 
1882 610254 900240 NOP : GIVE SOME TIME 
1883 60102568 042777 O00100 172062 BIC #BITE,IRCSR . :CLEAR INTERRUPT ENABLE 
1884 919264 019377 172566 MOV R3, IRVECT :RESTORE RECEIVE VECTOR 
1885 010270 oO10477 !72064 MOV RY’ IRPSW ?RESTORE RECEIVE PSW VECTOR 
1e8 019274 soo4ce BR 4$ ?BR TO END OF TEST 
1886 O1027& oezece 33: CMP (SP)+, (SP)4 :RESTORE SP AFTER INTERRUPT 
1886S 010300 1d407¢ ERROR 76 
| 2 eR SE RECEIVER RE- INTERRUPTED 
1891 010392 o10277 172050 43: MOV RB, IRVECT :RESTORE RECEIVE VECTOR 
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S550D8.P11 1a-JUN-7? 09:27 735 TEST RECEIVER FOR DOUBLE INTERRUPTS 
tsa5 
834 5p RRSRARAAARARA RARER ERA LALLA AAA RELA LS RAL AAA A SAA LASER AAAAE SESS ES 
1895 ;#TEST 36 TEST THAT RCVR INTERRUPT CLEARS BY READING REUF 
1836 “co Saygy 3 geneniar cise ate peti te amet eee aes salto 
1897 010306 ooc004 +7 COPE 
1898 O10310 900005 RESET :CLEAR EVERYTHING 
1899 010312 OO47E7 O01724 ISR PC, WRPSW :SET PSW PRIORITY TO 7 
190¢ 010318 900340 .WORD ~ 340 
1901 010320 017703 172032 MOV JRVECT,R3 :SAVE RECEIVE VECTOR 
1902 919324 912777 O1041l2 172024 MOV #23, JIRVECT :POINT RCV VECTOR TO ERROR REPORT 
1903 019332 052777 000100 172006 BIS #BIt6, IRCSR !SET RCVR INTERRUPT ENABLE 
1904 910340 oSe777 900004 172004 BIS Gite, JTCSR : SET MAINTENANCE WRAP 
1905 010346 o05077 172002 CLR aTBUF :SEND A CHARACTER 
1806 010352 105777 171770 13: TSTB = ARCSR :WAIT FOR DONE (INTERRUPT) 
1356 SLOSED ayeae ooc004 171764 Bre e1T2 aTcsR ; CLEAR MAINTENANCE g 
77 7176! C #2172, aTC 
i309 010366 OoSo77 171755 CLR JRBUF !READ RBUF TO CLEAR PENDING INTERRPUT 
1910 910372 OO47&67 Oo1644 ISR PC, WRPSW -SET PSW TO PRIORITY 
1311 910376 990140 -WORD ~ 140 ot 
13i2 010400 ooce4g NOP :ALLOW TIME FOR ANY ERRONEOUS INTERRLOT 
1913 910402 o42777 oOD0100 171736 BIC #BIT&,aRCSR :NC INTERRUPT-CLEAR INT. ENABLE 
1314 819410 docyoe BR 3$ 
o240 
i$ig O10412 oe2e26 2$: CMP (SP)+, (SPi+ :RESTORE SP AFTER INTERRUPT 
18:7 010414 164577 ERROR 77 ?READING RBUF DID NCT CLEAR INTERRLST 
18:3 O104i6 010377 171734 33: MOY R32, ORVECT sRESTORE RECEIVE VECTOR 
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DIDLDB.P1! L4-JUN-77 09:2 T36 TEST THAT RCVR INTERRUPT CLEARS BY READING RBUF 
1921 
1922 
1322 breet a7 TEST THAT RESET CLEARS RECEIVE INTERRUPT 
1924 ST 37 TEST THAT RESET CLEARS RECEIVE INTERRUPT 
1925  SRSRESHSHAHERARAASRHARAARARAASDAARASHAAAELA RE RELA RALREKSLALF ALE LEH 
1926 o10422 o00004 t&t37: SCOPE 
1927 910424 900005 RESET :CLEAR EVERYTHING 
1928 010426 OO47&? 001610 JSR PC, WRPSW :SET PSW TO PRIORITY 7 
1929 919432 000340 .WORD 340 
1930 010434 017703 171716 MOV JRVECT,R3 ;SAVE RECEIVE VECTOR 
i931 9O10440 012777 O10520 171710 MOV #2$. IRVECT :POINT RCV VECTOR TO ERROR REPORT 
1932 O10446 052777 000100 171872 BIS #BIT6, IRCSR :SET RCV INTERRUPT ENABLE 
1933 910454 777 00004 171670 BIS #BIT2.aTCSR ;SET MAINTENANCE WRAP 
1934 010462 012777 O00377 171864 MOV #377, JTBUF :SEND AN ALL 1°S CHARACTER 
1925 010470 105777 171652 1S: TSTB = ARCSR WAIT FOR RCV DONE 
1936 019474 100375 BPL i$ 
1937 910476 90c005 RESET ;CLEAR RCV INTERRUPT 8 RBUF 
1938 010500 o04767 001536 ISR PC WRPSW :SET PSW TO PRIORITY 3 
1939 010504 900140 -WORD ” 140 
1940 910506 900249 NOP sALLOW TIME FOR AN ERRONEOUS INTERRUPT 
1941 010510 042777 o0c100 171630 BIC #BITS, ORCSE !NO INTERRUPT-CLEAR INT. ENABLE 
ise 910516 oo00402 OR 3$ :CONTINUE TEST 
isus 
1945 910520 o22626 23: CMP (SP i+, (SP)4 :RESTORE SP AFTER INTERRUPT 
1946 010522 104100 ERROR 100 :RESET OID NOT CLEAR RCVR INTERRUPT 
1948 910524 O10377 171826 3t: MOY R3, IRVECT ;RESTORE RECEIVE VECTOR 
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DZOLDB. P11 14-JUN-7? 09:27 137 TEST THAT RESET CLEARS RECEIVE INTERRUPT 

pes, 

« i) 

tge4 : s LLSERERSRALSLE RE RAS HAAS A HAASE RA AA SAL EAALAAALERERASRE LALA LAA AF LEE 

: S$TEST 40 Teel THAT THE “OR” ERROR (BIT14) & “ERROR” (Bite) CAN BE SET 

1953 SARE SSAALEHHRAAAA SEARS HAAAALERA SERA SRA ALE RAARE SARA LELAAE LAF S HE 

1954 910539 ooc004 +6740: SCOPE 

1955 010532 032777 o02000 170300 BIT #BIT10, ISWR :IS THIS TEST ENABLED 

1356 010540 001432 BEQ TST4! IF NOT ENAB ED BR TO NEXT TEST 

1957 010542 000005 : RESET :CLEAR EVERYTHING 

1958 o10544 0Se777 oo0004 171600 BIS #B1T2,aTCSR :SET MAINTENANCE WRAP 

13953 010552 012700 o00003 MOV #3, RO :SET CHARACTER COUNT TO SEND 3 CHAR. 

1960 910556 905077 17157 1$: CLR aTBUF ‘LOAD TRANSMIT BUFFER 

1961 010562 105777 171564 23: TSTB =: ATCSR “WAIT FOR TRANSMIT DONE 

962 010566 100375 BPL 2$ 

1963 610570 9605300 DEC RO :DECREMENT CHARACTER COUNT 

1964 010572 901371 BNE 1$ :BR IF ALL CHARACTERS NOT TRANSMITTED 

195 O10574 942777 oocoo4 171550 BIC 8BIT2,aTCSR ; CLEAR MAINTENANCE BIT 

i366 10602 O32777 O40000 171540 BIT #81714, IRBUF : TEST FOR "OR" ERROR FLAG 

1967 919619 OO1001 BNE 3$ :BR, IF SET 

1368 O106le 19410] ERROR 101 

1383 :"OR" ERROR FLAG DID NOT SET 

1871 O10614 O32777 100000 171526 3s: BIT #81715, SRBUF : TEST “ERROR” FLAG 

i§72 019622 96100: BNE 43 :BR, IF SET 

1873 910654 104152 ERROR 102 

{ poate A -"ERROR” FLAG DID NOT SET WITH “OR™ FLAS 

ivi wewese "3: 
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O2DLD8. P21! 14-JUN-77 09:27 THO TEST THAT THE “OR” ERROR (BIT14) & “ERROR” (BITIS) CAN BE SET 
197% 
1976 5 RELERERA RARER RA EAL ARAL ERA REAA LAA RAE LAA A A RELAAAA LAER FAKES 
197 : STEST 4] TEST THAT BREAK TRANSMITS ALL ZEROES 
1380 +s REE KAK ARKH E ALAA LARS RRR E LAL E REALE ALES ERRA AAAS RAL EL ALAA ALE E SSE 
1981 010626 900004 tST41: SCOPE 
: = 010630 9032777 o00490 170202 BIT 1A Sa its BREAK FUNCTION 168) GESLED® 
1 des ; L 
1383 Bt Pee BBAgde RES. 7 BR AR DET BING 
1985 O10642 OSe777 o00004 171502 BIS #BIT2,aTCSR :SET MAINTENANCE WRAP 
1986 O106S0 012777 177777 i71476 MOV #-1, J tBUF - TRANSMIT ALL ONES TO RCVR 
1987 019656 105777 171464 1$: TSTB = ARCSR :WAIT FOR RCVR DONE 
tee eee sit 171460 ark is F NE (LEAVING ALL ONES IN RBLUF 
_ rl { G ‘ ~~ It U } 
1990 Bt Nene Aradey 171454 ae Af TD, aTCSR iSRanend Be ERK 
1991 0106876 o05000 CLR RO TIM SER 
1992 010700 117767 171442 170120 28: MOVB § ARCSR, SBDDAT ‘MATT. FOR RCVR DONE 
1993 010706 100406 BMI CONTYI ‘BR IF 
1994 619710 oo0S200 INC RO IF NOT TNCRENENT TIMER 
1396 010712 001372 BNE zt :BR IF TIME REMAINS 
1997 910714 oO4e777 ODCONDS 171430 BIC WBITO!BITZ,OTCSR ,CLEAR MAINTENANCE & BREAK BITS 
1338 010722 104103 ERROR 103 :BREAK DID NOT TRANSMIT ANYTHING 
2000 910724 105777 171429 CONT41: TSTB @RBUF : CHECK RECEIVE BUFFER FOR ZERO 
2901 010730 907404 BEQ Ra dba we 
gone O19732 082777 go0000S 1i7141e BI¢ gerto! BIT2, aresr*? CLEAR ERO NTENANCE & BREAK BITS 
2004 p10740 104103 ERROR 102 :BREAK DID NOT TRANSMIT ALL ZERSES 
S50E O1O742 42777 OOC0DS 171402 3s: BIC SBITOIBIT2Z.aTCSR :CLEAR MAINTENANCE & SREGK 2275 
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T4] TEST THAT BREAK TRANSMITS ALL ZEROES 


+ LEA RA RRR R RHEE RE KEK H EERE EERE ELAR A REELS EERE EE AALEE EEE SEES 
TEST THAT “FR” ERROR CAN BE SET DURING BREAK 
ws SHERI RHEE HEHEHE SER RRR EEE REE EERE REAR EELS 


i RTEST 42 
tétye: SCOPE 


1S: TSTB 


oo 
#B1T8, ISWR 


:IS THE “TEST ERROR FLAGS” BIT SET 
-BR TO NEXT TEST NOT SET 
:1S BREAK "FUNTION ENROL ED 


TST43 :BR TO NEXT Le IF NOT SET 
;CLEAR EVERYTHIN 
wot Te otk RR :SET MA Pip ne WRAP 
#BITO,aTCSR : SEND 
a TBUF : TRANSMIT ; CHARACTER TO TIME BREAK 
em WAIT FOR RCVR DONE 


sBITO!BITe, iat ae Te acre 8 BREAK BITS 


#81713, IRBUF 
mS} 


104 


#81715, aRBUF 
3$ 


114 


; CHECK R FRAMING ERROR FLAG 
fe oF 


;BREAK DID NOT SET FRAMING ERROR 
; TEST TERROR’ R"FLAG 


;"ERROR” FLAG DID NOT SET WITH “OR” FLAG 
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.MAIN. Ss whe 30(1046) —14-JUN- -77 17:10 PAGE Sl PAGE: O062 a 
DZDLDB.P 14-JUN-77 09:27 T42 fest THAT “FR” ERROR CAN BE SET DURING BREAK 53 
sO3e 

2037 5 SE EAE SE SESE SESE SESE SEAR JER SESE SEE SEE JE SEE JE EE SEE EE EE ER EE EE SE HE i db dd ob 

5p  STEST 43 TEST DATA PATH FROM TRANSMITTER TO RECEIVER USING MAINTENANCE WRAP 

© EEE ERE EERE ERE EEE REE EERE REE EEE EEE EERE RELA ARLE LALA ERAS ES 

e040 011054 o9o0004 téT43: SCOPE ; 
e04e 011056 o00005 RESET ;CLEAR EVERYTHING 

2043 011060 005001 CLR Rl CL a REGISTE re. al DATA 

2044 O11062 OSe777 O00004 171262 BIS #BIT2,aTCSR :SET M AINTENANCE W 

204s ; TRANSMIT A BINARY NPR OUNT PATTERN - UP 

2046 ;T0 THE BIT POSITION INDICATED BY THE 

2047 ;CONTENTS OF LOCATIO . 

2048 011070 905201 1$: INC Rl IN 3 TEST 

2049 011072 010177 171256 MOV Rl, dTBUF >XMIT A CHARACTER 

2050 011076 108777 171244 es: TSTB aRCSR ‘WAIT FOR RECEIVER DONE 

205i 011102 100375 BPL es 

2052 011104 017702 171240 MOV JRBUF , R2 ;GET RECEIVED CHARACTER 

2053 011110 043701 OOllle BIC G¥SUSAR, Rl : CLEAR LOWEST UNUSED DATA BIT POSITITON IN TEST DATA 
2054 011114 d2010e2 CMP R1,R2  CONPHRE DATA 

2055 011116 001003 BNE $ F NON-COMPARE 

2056 O1112e0 105701 TSTB Rl Bey! XMIT DATA FOR ZERO 

2057 Olll22 OoO1411 BEQ 4§ :BR IF See 

2058 011124 000761 BR 1$ CONTINUE TEN 

2059 911126 O10167 167672 3$: MOV R1, SGDDAT sSTORE T HE EXPECTED DATA 

2060 Olil3e 010267 167670 MOV Re’ $BDDAT ; STORE RECETVED DAT 

2061 011136 O4%e777 OO0004 171206 BIC aglTe, aTcsR CLEAR MAINTENANCE BIT 

oe O11144 104105 ERROR ‘DATA COMPARE DATA 

ve 011146 042777 SO0004 171176 4S: BIC #BIT2,aTCSR ;CLEAR MAINTENANCE BIT 

ones 

2067 

2068 5 REAR LEER AREER ERA EE EERE RARER EAA E EERE LEER EER AREREAEE AEE ERE EE 

2063  ETEST ad TEST DATA PATHS USING WRAP CABLE 

207. + RK EAELEL ERLE EE RREEL EE EERE AAA AL SAAR REALL SAS SS RALLA ALAR ED OES 

2071 011154 990004 +éT44: SCOPE 

2072 O11156 032777 900200 167654 BIT #BIT7, dSWR ;I1S THIS TEST ENABLED 

2073 O11184 001432 BEG TSTYS F + hy 

2074 Ollis6 o00005 RESET ‘CLEAR E THING 

2075 011170 995001 CLR Rl : CLEAR SETTER FOR iest pare 

2076 ; TRANSMIT BINARY COUNT PATTERN -_UP 

2077 TO THE BIT PURO INDICATED BY THE 

2078 CONTENTS OF LOCATION “SUSWR 

2079 O1117e 105201 15: INCB Rl : INC EMENT THE TEST DATA 

2080 O11174 O10177 171154 MOV R1,aTBUF :XMIT A, CHARACTE 

208i Olle 005000 CLR :CLEAR A TIMER 

e082 Oilede 105777 17114¢ 23: TSTB aRCSR WAIT FOR RECEIVER DONE 

2083 011206 100403 BM? 3$ :B N 

2084 011219 005209 INC RO : INCREMENT TIMER IF NOT 

Shee Ollele 001373 BNE 2s :BR IF TIME REMAINS 

spe? Ollel4 104064 ERROR 64 ;sRECEIVER DONE NOT SET 

2089 Ollelé 917702 171126 38: MOY aRSUF Re :GET RECEIVED CHARACTER 

2090 Olleee 43701 OOllle BIC DaSUSUR, RI CLEAR LOWEST UNUSED DATA BIT POSITITON IN TEST DATA 
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OZOLDB.P11 = L4-JUN-77 09:27 THy «TEST DATA PATHS USING WRAP CABLE 

2091 011226 920102 CMP sR, Re ;COMPARE DATA 

2092 011230 001003 BNE 48 ;BR, IF NON-COMPARE 

2093 Oile32 105701 TSTB. RIL {FEST XMIT DATA FOR ZERO 

2094 011234 901406 BEQ = TSTHS ;BR E 

2095 01123 O0075S BR 1$ ;CONTINUE IF’ NOT 

209 011040 010167 167560 48: MOV —- R21, SGDDAT ;STORE EXPECTED DATA 

2037 O1le44 O10e67 1é7556 MOV —- Re, $BDDAT ;STORE RECEIVED DATA 

2099 O11 


250 104106 ERROR 106 :DATA COMPARE ERROR WITH WRAP CABLE 
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DZDLDB.P11  14-JUN-77 09:27 T4Yy TEST DATA PATHS USING WRAP CABLE 
2190 
Stee 73 RKSERERHLAELLS KEELER SRE RA SALAS LAA RAR RRA RRRAA ALE RA ARAL AAA LAA AL EE 
2103 #TEST 45 TEST DL11-W LOGIC BY EXERCISING THE XMIT,RECEIVE, 8 CLOCK(IF AVAILABLE) 
2104 © REALE RLA RH RASS R SAAR EK KA SERRA A SERRA SRE RL AAA AA AA RAL AAAAAL ESET 
2105 011252 oo0004 c: 
2106 011254 oo0005S SET CLEAR EVERYTHING 
2107 11256 004767 000760 JSR PC, WRPSW :SET PRIORITY TO 7 
5156 pt 156 ide 171072 MOV TVECT,R3 ;SAVE XMIT VECTOR 
110 11270 017708 171062 nov JRVECT, RY save RECEIVE cron 
elle Bt tSaq pie eps 121428 000426 MOV Ree ae. 28 ‘E Ch OGK ptf VECTOR 
2113 011306 017767 171046 Oo04ee MOV JRPSW’ SRPSW i SAVE RECEIVE PSW VECTOR 
2114 O11314 017767 171072 O00416 MOV DRTCPSW,SCPSW SAVE “te PSW VECTOR 
2115. O11 012777 O116S0 171032 MOV SXMIT,atVECT § ;POINT RANSHTT VECTOR 10, TRANSMIT ROUTINE 
stig ee Tee ears 171014 Sat #RCV, IRVECT sBLEOW INT vi cTOR % MRECE TV ROUT NE 
2118 611342 Bt 77 171012 CLR JRPSH ALLOW | Eto ATER RCVR Wve ROUT 
2119 011346 005767 170764 TST CTSTFL 31 TEST? 
2120 011352 001414 BEQ 1$ ite So sete LAP eK SET UP 
2lel 011354 032 000100 167456 BIT #BIT6, ISWR ‘IF YES, ARE CLOCK TEST DISABLED? 
2l22 011362 001010 BNE IF YES; SKIP CLOCK SET 
2123 O11364 012777 011720 171016 MOV #CLK, IRTCVT : POINT VECTOR TO CLOCK INTERRUPT ROUTINE 
2124 011372 005077 171014 CLR JRTCPSW ‘ALLOW INTERRUPTS AFTER CLOCK INTERRUPT 
2125 011376 OS2 000100 171002 BIS BITb, aLKS : ENABLE CLOCK INTERRUPTS 
2126 011404 O52 0004 170740 BIS #B1T2,aTCSR SET MAINTENANCE WRAP 
2127 611412 050777 000100 170732 BIS #8176, aTCSR ‘ENABLE TRANSMIT INTERRUPTS 
2128 011420 O52 000109 170720 BIS aeITB, JRCSR ?ENABLE RECEIVE INTERRUPTS 
2129 011426 O0S067 000276 CLR MTCNT ;CLEAR XMIT_ INTERRUPT COUNTER 
2130 011432 005067 000270 CLR ACYENT :CLEAR RCV INTERRUPT COUNTER 
2131 011436 O0S001 | CLR RI :CLEAR A REGISTER FOR TEST DATA USE 
2132 011440 oGoSO00 CLR RO :CLEAR TIMER 
2133 O11442 012702 O11742. MOV #BUF , R2 ?POINT Re TO RECEIVE DATA STORAGE 
2134 O11446 005077 170702 CLR aTBU !SEND FIRST CHARACTER 
2135 011452 004767 Oo0S64 JSR PC. WRPSW :SET PSW TO PRIORITY 3 
2136 O114S6 oO00140 .WORD ” 140 
2137 ;WAIT FOR INTERRUPTS 
2138 O11460 062700 oD0000 2s: Aco #0,RO ADD INSTRUCTIONS ARE USED TO LENGTHEN LOOP TIME 
2139 011464 062700 000001 ADD #1°RO : TO COVER THE SLOWEST BAUD RATE ON THE FASTEST CPL 
2140 011470 001372 BNE 2 
2141 011472 032777 OO0100 170652 BIT #B1T6,aTCSR ;FINISHED ENTIRE TRANSMISSION 
2142 011500 o01402 BEQ 3$ :BR, IF INTERRPUTS ARC DISABLED (FINISHED) 
e143 011502 oo0005 RESET >CLEAR EVERYTHING 
els 011504 104107 ERROR 107 ; TRANSMIT INTERRUPT TIMEOUT IN MAIN. DATA TEST 
2147? Q11SO&B O26767 OO0216 opne1e 38: CMP XMTCNT,RCVCNT  ;COMPARE THE NUMBER OF INTERRUPTS 
2148 011514 001402 BEG 4S :BR 
e148 011516 og000s RESET :CLEAR EVERYTHING 
2151 O11520 104110 ERROR 110 REC IVER DID NOT GET FULL TRANSMISSION 
2152 ; IF RCVCNT=0, NO_OATA RECEIVED 
2153 : IF RCVCNT=?: THEN (XMTCNT-RCVCNT > 
e154 ; EQUALS THE NO, OF INTERRUPTS LOST. 
€.35 


. MAIN. 
B2DLDB.P11 

2156 

size ¥ 
5128 Bil 
2160 011530 
2161 011536 
2lb6e 011540 
2163 011544 
2164 

2165 O11S46 
2166 

2167 011550 
2168 011552 
5153 11556 
el 11560 
2171 011562 
el7e2 011564 
2173 011566 
2174 011572 
2175 011574 
2176 

e177 O11S76 
2178 011602 
2173 011606 
2180 

2181 011610 
2182 011614 
2183 011620 
2184 011624 
2185 011632 
2186 O11640 
2187 O11646 
2188 

2189 011650 
2190 011654 
2191 O1i6S6 
21392 011662 
2193 011664 
2194 011672 
2195 011674 
2196 011700 
2197 011702 
2198 

2199 011704 
2200 011710 
2201 011714 
2202 O11716 
2203 ' 
2204 9011720 
2205 011724 
2206 

2207 011726 
2208 011730 
2ee09 01173e 
2219 O11734 
ceii O1173% 
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001001 
104113 


014067 
010167 
194111 


000000 
900000 
000000 
000009 
000900 
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170610 
000100 
000166 


011742 


o00c40 


167224 
167216 


000074 


ooo0S4 
000040 
900100 
1704S4 


170440 
00001e 


ocooce 


167302 


170532 
170520 
170544 


170460 


4§: 


S$: 


COMP: 


6$: 


7$: 


XMIT: 


XCONT: 
XRET: 
RCV: 


CLK: 


RCVCNT: . 
XMTCNT: . 
CLKCNT: .WOR 
STPSW: 


NOS 


PAGE: 
TEST DLI1-W LOGIC BY EXERCISING THE XMIT,RECEIVE, & CLOCK(IF AVAILABLE) S$ ii N 


CTSTFL 

S$ 

#B1T6, ISWR 
CLKCNT 

S$ 


113 


#BUF , RO 
(RO)+,R1 
6$ 


Rl 
“BITS,RI 
COMP 


-(RO), $BDDAT 
RI  SGDDAT 


R3,aTVECT 


R 
SCPSW, JRTCPSW 
ENDEV 


XMTCNT 

Rl 

#BITS,R1 
XCONT 
#BIT6,aTCSR 
Rl, JTBUF 

RO 


JRBUF , (R2)+ 
RCVCNT 


HIP ROT, SKIP CLOCK COUNT CHECK 


IF YES’ SKIP CLOCK COUNT CHECK 
‘CHECK FOR AT LESST ONE CLOCK INTERRUPT 
:BR IF INTERRUPTS OCCURRED 


;NO CLOCK INTERRUPTS IN EXERCISER 


;CLEAR EVERYTHING 
:L ORD UP REAYED DATA POINTER TO RO 
UP_REGIS BR A alae 


: NuT E ta 
: INCREMENT cb PARE DAT 

: FINISHED CHECKING OP CEIVED DATA? 
:BR, IF NOT FINISHED 

:BR’TO END OF TEST 


;STORE BAD DATA FOR ERROR REPORT 
STORE GOOD DATA FOR ERROR REPORT 
:DATA COMPARE ERROR IN EXERCISER 


;RESTORE XMIT VECTOR 
; RESTORE RECEIVE VECTOR 
;RESTORE CLOCK ol oe 
TORE XMIT PSW VECTOR 
SREST ORE RECEIVE Pati VER TOR 
see! ORE CLOCK PSW VECTOR 
R TO END OF DEVICE TEST ROUTINE 


iormnee XMIT INTERRUPT COUNTER 

INCREMENT TEST DATA 

; SEND DATA PATTERN FROM OO pe 37 
F MORE DATA TO BE SENT 

ie i AP XMIT INTERRUPT ENABLE 

RETURN WITHOUT SENDING ANY MORE DATA 


:SEND NEW 
:CLEAR TIME 
RETURN 


;STORE RECEIVED DATA 


: INC ReNeNT RCV INTERRUPT COUNTER 

;CLEAR TIMER 

CLKCNT ; INCREMENT CLOCK INTERRUPT COUNT 
RETURN 


|e) Se) oe) ae | ae] 
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TEST DLIil-W LOGIC BY EXERCISING THE XMIT,RECEIVE, & CLOCK‘IF AVAILABLE. SIMU 
ScPSW: .WORD 
BUF; 


IMULTHN 
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2215 

esis sEND OF DEVICE PASS ROUTINE 

2218 Ole0Se OCSO&7? 166724 ENDEV: CLR STSTNM sGLERR wiry NO. ae at SCOPE RCUTINE 
2219 0120S6 O0Se6b7 167014 . INC SOEVCT = s INCREMENT pevice INTER 

2220 Ole0be Oeb7E7 170254 167006 CMP TMP2 , SOEVCT SAN PBEVICES FETED 

2221 012070 001404 BEQ SEOP :BR IF YES 

2222 Ole07e OOSOB7 170240 CLR CTSTFL :CLEAR CONSOLE UNDER TEST FLAG 
ccs; O1e07& O00167 17137E JMP TSTDEV :GO TEST NEXT DEVICE 

3225 

e2e6 

cose .SBTTL END OF PASS ROUTINE 

2223 + RRLEE EERE REAR LEAL ER LES LAELERAS EARL ERE ERA LAL ERE LALASS ERED SE EE RES 
e230 S SINCREMENT THE PASS NUMBER ($PASS) \ 
e231 :#IF THERES A ig HE GO TO IT \ 
e232 :#IF THERE ISN'T JUMP TO GOAGIN . 
2233 

3234 012102 SEOP: \ 
2235 OlelSe 900004 SCOPE 

2226 O12i04 OOSOE7 16672 CLR $TSTNM 3 ZERO THE TEST NUMBER 

2237 Ole110 OOSeE? 166760 INC $PASS ;; INCREMENT THE PASS NUMBER 

2228 012114 O4e7&7 100000 166752 BIC #l10C0000,$PASS :;DON'T ALLOW A NEG. NUMBER 

2239 Qleiee 005327 DEC (PC i+ : ;LOOP? 

2240 QleieY 000001 SEOPCT: .WORD 1 

2241 Qlel26 O030i5 BGT $DOAGN >; YES 

ee4¥e Olei30 Ole737 MOV (PC)+, ai PC}+ » ;RESTORE COUNTER 

ee43 Olel3e 000001 SENOCT: .WORD 1 \ 
2244 O1ei34 Oleicd SEOPCT \ 
2245 012136 104401 012172 TYPE ENOMG ;; TYPE “END PASS” 

224% Olel¥e 013700 d0004e $GET42: MOV ae42, RO 53) MONITOR ADDRESS 

ee47? =9012146 901405 BEQ $DCAGN :BRANCH IF NO MONITOR 

2248 012150 900005 RESET CLEAR THE WORLD 

2249 ClelSe 004719 SENDAD: JSR PC, (RO) -:GO TO MONITOR 

2250 012154 000249 NOP ;SAVE ROOM 

2eS1 012156 900240 NOP os 

22 912160 0024 NOP -:ACTLI 

e253 Qlelbe $DOAGN: 

eeS4 Olelée 900137 IMP arc i+ 7; RETURN 

2eSS Oielb4 Ole206 $RTNAD: .WORD GOAGIN 

eeS& Cleibé are 377 O60 $S$ENULL: .BYTE -1,-1,0 »:NULL CHARACTER STRING 

ees? 012172 -EVEN 

eects OCl2i7e OOS01§ 047195 020104 ENDMG: .ASCIZ <CR><LF»-END PASS - 
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.M3IN, MACYLI 33 104g) 14-JUN-7? 17:10 PAGE S7 PAGE: 
STDLDB. PLL 7 09:27 END OF PASS ROUTINE 
2260 
2261 012206 OO0SO&7? 166654 GOAGIN: CLR SDEVCT :CLEAR DEVICE COUNT 
262 Ol22el2 O22767 O0000l 170122 CMP #1. TMP2 :IS THERE ONLY ONE DEVICE UNDER TEST? 
2263 012220 901004 BNE RSTRT :BR, IF N NgT 
22064 Clecc2 O12706 001000 MOV #1000, SP STACK PCINTER 
2265 Ole226 000167 171370 IMP TST GO DO alCrrER Pass 
2267 012232 OOSOE7 186642 RSTRT: CLR SUNIT :CLEAR UNIT NUMBER 
2et8 Ol2236 OOD1G7 171182 IMP BEGIN 
2270 12242 O11646 WRPSW: MOV(SP), -<SP) sCOPY RETUN PC 
2271 O12244 913616 MOV aiSP)+, (SP) “MOVE NEW PSW TO STACK 
eeve Olee4e O6274S oocddE app #2, -(SP) !ADJUST JSR RETU 
ze73 Oiees2 9o0do02 RTI ‘POP RETURN PC 5 NEW PSW 
2275 : SUBROUTINE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS 
ees 
Serr 012254 012600 CATCH: MOV (SP}+,RO :GET ADDRESS OF TRAP VECTOR + 
2e7e Oleesé 1be7oc ggg SUB #4,RO !ADJUST TO POINT TO TRAP ADDRESS 
2279 Dlecbe 010067 9009 MOV RO,SOVECT ‘STORE TRAP OR INTERRUPT ADDRESS 
2280 Oleese 018667 faite 900004 MOV 2(SP), OLDPC -GET PC WHERE TRAP OR INTERRUPT OCCURRED 
2 g: Bles74 104112 ERRO ‘2 !REPORT ERROR 
&ese 
223 012276 900000 HALT sPROGRAM MUST BE RESTARTED GT THIS POINT 


PoOrorngrore 
fuorurufuru 
cocococo 
© 
ur 
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52DLD8.P 11 14-JUN-77 09:27 END OF PASS ROUTINE 
2287 
3398 PETITE TTTTTTT TTT CTT T TTT TTT Teri t iti i tit ttt titi ttttti tittle: 
2es3 THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
2230 - ¥SAVE THE ERROR ITEM NUMBER AND ADDRESS OF THE ERROF CALL 
2231 : xAND GO TO SERRTYP ON ERROR 
2232 x THE SWITCH valid“ PROVIDED BY THIS ROUTINE ARE: 
2233 24S =] N ERROR 
2H :*SW13=1 HHIBYT ERROR TYPEOUTS 
2295 ; *SWOS=1 LOOP IN ERROR 
2238 » CALL 
2237 x ERROR N -ERROR=EMT AND N=ERROR ITEM NUMBER 
2238 EET ETP PEE ET TEST TTT Teer eererrrertrrreererrt rer rerrerrer iss 
2300 012304 SERROR: 
2301 012304 105267 166473 7$: INCB SERFLG ;SET THE ERROR FLAG 
e30e O12310 001775 BEQ 73 : DON’ T LET FLAG GO TO ZERO 
2303 Ole3le O18777 166464 166522 MOV STSTNM, DISPLAY ; DISPLAY TEST NUMBER AND ERROR FLAG 
2304 Ql2320 O0S267 166466 INC $ . NCREMENT ERROR COUNT 
2305 Ole3e4% O1lls67 166466 MOV (SP) , SERRPC : GET ADDRESS OF ERROR INSTRUCTION 
2306 012330 1682767 O0000e 166460 SUB #2, SERRPC 
23207 Ol2336 117767 166454 166450 MOVB aSERRPC SITEMB ;STRIP_AND 7 THE ERROR ITEM CODE 
2308 012344 032777 O20000 i1s6466 BIT #BIT13, 2SWR : SKIP Aa IF SET 
2308 Ol123Se o0i004 BNE 20$ :SKIP T YPEOUTS 
2310 012354 004767 O00l106 JSR PC. SERRTYP : G0 TO USER ERROR ROUTINE 
2311 912360 104401 001063 TYPE  ,SCRLF 
23l2 012364 203: 
2313 012364 le2767 000001 166514 CMPB #OPTENYV, SENV ;RUNNING IN APT MODE 
2314 Ole37e 00:007 BNE 2s ZNO, SKIP APT ERROR REPORT 
2315 012374 116787 166414 od80004 MOVE SITEMB,21$ -SET ITEM NUMBER AS oye NUMBER 
2316 Giesde oO04767 4900562 JSR PC, SAT aTY4 : REPORT FATAL ERROR TO A 
2317 O12406 009 218: BYTE 9 
2318 012407 000 .BYTE 0 
2319 912410 90077 223: BR 22 ;APT ERROR LOOP 
23220 Cle4le 005777 l6&422 2s: TST aSWR HALT ON ERROR 
2321 Ole41& 100001 BPL 3$ :SKIP IF CONTINUE 
esee Ole4¥eO 000000 HALT ; HALT en es 
e323 ODle4ee 104406 3s: CKSWR ; TEST FOR CHANGE IN SOFT-SWR 
2324 Ole424 032777 921900 166406 BIT s8ITOS, dSWR sLOOP BN ERROR SWITCH SET” 
2325 Qle4¥3e 001402 BES 4§ FN 
e3e6 012434 O16716 166350 MOV $LPERR, (SP) :PuDGe RETURN FOR LOOPING 
2327 O1le440 905767 166414 4$: TST SESCAPE :¢ a) FOR AN ESCAPE ADDRESS 
2308 912444 001402 Bo Ss NONE Sa Taper 
2329 Ole44e OLE7IE LEBYHOE MOV SESCAPE, (SP) sic RETURN ADDRESS FcR ESCAPE 
2330 O1e4Se ss: 
£231 012452 022737 DlelSe cooo4e CMP #SENDAD, aa4e sACT-11 AUTO-ACCEFPT® 
3332 O1e460 90100! SNe sé :BR_IF NO 
e333 Oletée 00000 HALT :YES 
cz S1s454 68: 
es3s Dle4s4 000002 RT] : RETURN 


FO6 


.MSIN. MaCcYL1 30: 1048) i4- =JUN-77 7:10 PAGE S9 Pace: 0076 
O2DLDB.F11 © 14-JUN-77 09:27 END OF PASS ROUTINE 

2337 
2338 .SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
2340 STHIG ROUTING Uses THE “ITEM CONTROL OYTe™ CSITEMB) To DE TEAM Tie 
34h THIS ROUTINE USES THE "ITEM CONTROL BYTE” (SITEMB) TC DETERMINE WHIC 
2348 R IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE” ($ERRTE:, 
2243 :#AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
2345 O12466 SERRTYP: 

2a46 12465 104401 901062 TYPE $CRLF ::"CARRIAGE RETURN” 8 “LINE FEED” 
2347 Ciss7e Oioc4e MOV RO, -(SP) :SAVE RO 
2348 012474 99590 CLR RO ::PICKUP THE ITEM INDEX 
2349 912476 153700 o01014 BISB adaSITEMB,RO 

e3s0 Oles02 001004 SNE 1$ $316 ITEM Nun NUMBER IS S_ZERO, | Just 
ease 012504 OLS74HE 166306 MOV SERRPC, -(SP) ti dare SE ape & Pee! HE OES ROR 
2253 : sERROR ADDRESS 
2354 012510 104402 TYPOC 770 TYRR OC TAL ASCII(ALL DIGITS) 
2355 O125i2 oOOo426 BR 6$ GET OUT 
2356 012514 005300 1g: DEC RD :AGJUST THE INDEX SO THAT IT WILL 
2257 012516 006300 ASL RO +; WORK FOR THE ERROR TABLE 
2358 912520 906300 ASL RO 
2359 012522 006300 as. RO 
2360 Ol 062700 o01146 Ado #SERRTB.RO : sEORM TABLE POINTER 
2361 O1 012067 900004 MOV (RO}+,2$ ::PICKUP “ERROR MESSAGE” POINTER 
2362 012534 O01404 BED 3$ ::SKIP TYPEQUT IF NO POINTER 
2363 912536 104401 TYPE :: TYPE THE 
2364 012540 000009 28: .WORD 0 ;;"ERROR MESSAGE” POINTER GOES HERE 
2365 012542 104401 901062 TYPE SCRLF >: "CARRIAGE RETURN” & “LINE FEED" 
2366 012546 012067 900004 38: MOV [RO}+, 4S ::PICKUP “DATA HEADER™ BOTNTER 
2367 0125S2 O0!404 BEG 3 ::SKIP TYPEOUT IF 

368 012554 10440) TYPE : E THE "DAT " 
2368 91 feeoco 4 .WORD 0 73" ADER™ POINTER GOES HERE 
2270 912560 104401 o01062 TYPE SCRLF +O ORRIEE RETURN” & "LINE FEED” 
2371 012564 0119000 S$: MOV RO}, RO ::PICKUP “DATA TABLE” POINTER 
2272 912566 001004 BNE 73 ::G0 TYPE THE DATA 
2273 «912570 012690 és: MOV GP RO :: RESTORE RO 

2374 012572 104401 901963 TYPE CRLF is PARR IAGE RETURN” $ “LINE FEED” 
e275 012576 000207 RTS a8 : :RETURN 

2376 012600 73: 

2377 012600 13046 MOV 3(RO)+,-(SP i : SAVE 3(RO)+ FOR TYPEOUT 

2378 Ole602 104402 TYPO 3300 TYPE--QCTAL ASCITiALL D1 

2379 912604 OoS716 TST RO) :1S THERE ANOTHER NUMBER? 

22280 012606 901770 BED 63 t'R IF NO 

2381 O12612 10440! oletle TYPE =. 88 ii TYPE TWO(2) SPACES 

2282 912614 900771 OF og 

e283 OS1261e Oed040 099 gs: -8SC12 , of Tuo 2) SPACES 

coke Cigtez wEVEN . 


GO6 
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52505 -PLL 0 14+JUN-77 09:27 ERROR MESSAGE TYPEOUT ROUTINE 

2296 

£38. .SBTTL_ POWER DOWN AND UP ROUTINES 

2288 5 RARER ERE RA ALAR AERA ER ARAA REL ERA LARA LALA LALA ALE LESLERFL ALLL AFF LES 

23893 ;#POWER DOWN ROUTINE 

23390 Meritt rtTe Titi ittritittttiilitiitititiiitititttititiettee 

3391 12622 012737 O12762 00024 $buRON: MOV RSILLUP,d#PWRVEC ;SET FOR FAST UP 

2392 012630 O1e737 O00340 d00dce MOV #340, JHPWRVEC+2 ;PRIO:7 

2393 012636 010046 MOV R0,-t§ P) PUSH RO ON STACK 

2 012640 010146 MOV R1,-(SP) :PUSH R1 ON STACK 

2395 Sleé4e 1054 MOV Re, -(SP) ;PUSH Re ON STACK 

2396 012644 010346 MOV R3,-(SP) ;PUSH R3 ON STACK 

2397 Ole646 O1d446 MOV RY, -(SP) PUSH RY ON STACK 

2398 012650 O10546 MOV RS) -(SP) ;PUSH RS ON STACK 

2398 012652 O17746 166162 MOV JSWR, - (SP) : PUSH aSWR ON STACK 

2400 012656 010667 OO0104 MOV SP, SSAVRE ;SAVE SP 

2401 Q12662 O1e737 012674 oco0d24 MOV BSPWRUP, JHPWRVEC ;SET UP VECTOR 

e402 012675 o6d000 HALT 

2403 012672 o60776 ae .-2 HANG UP 

2404 

2405 

e406 pp RRRRERR ELAR EAH E EAE SESH E REE EERE SARE RARERALE EERE LER ES EEE RSE EERE 

240; ;#POWER UP ROUTINE 

2408 + ERARESE RARE EEE EEA EEE REAR KARERALE EERE EEE AEA AAR AAR EAEEEEE SESE 

2409 Q12674 gi2737 o1e7ee oonoe4 SAuRUP: MOV © #SILLUP,dSPWRYEC SET FOR FAST DOWN 

24:2 Q1e702 016706 o00060 MOV SSAVRE, SP ;GET SP 

2411 O1e706 012677 166126 MOV (SP) +, ISWR :POP STACK INTO JSWR 

2412 Ole7l2 012605 MOV (SP )+:R5 

24:3 O1e714 012604 MOV (SP)+,R4 ;POP STACK INTO RY 

24:4 Ole716 01260 MOV (SP)+°R3 :POP STACK INTO R3 

2415 012720 O1260e Mov (SP) +: Re POP STACK INTO Re 

E416 012722 012601 MOV (SP)+, Rt ;POP STACK INTO RI 

Sip lee GE gunsee comes «AY drunth harumgc'gaer prin PER Dawe 

etd é Dle7 e 9oc024 MOV a SPWRY T W DOWN VECTOR 

2419 Gle734 0126737 900340 Sd55z¢ MOV as O, J#PWRVEC+S -bRtO:3 ; 

2420 Ole742 005067 0999920 CLR AYRE {WAIT LOOP_FOR THE TTY 

2421 012746 005267 200014 1S: INC seavRE sWAIT FOR THE INC 

S422 O1e7S2 001375 BNE 1§ ORD 

2423 916754 10440] TYPE TREPORT THE POWER FAILURE 

gic 012756 012770 SPURMG: soho $POWER :POWER FAIL MESSAGE POINTER 

2425 e7 0 iT 

e426 O1e762 900000 SILLUP: HALT :THE POWER UP SEQUENCE WAS STARTED 

2427 O1e764 000776 BR 72 ; BEFORE THE POWER DOWN Was COMPLETE 

e42e Cle7be 900000 $SAvRE: 0 :PLT THE SP HERE 

2429 212779 O05C1 O47S20 Os2527 SPOWER: .ASCIZ © 18)<12)"PONER” 

esac Sle77e S002 
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DIDLOB.P11  i14-JUN-7? 09:2 POWER DOWN AND UP ROUTINES 
2432 
2433 .SBTTL SCOPE HANDLER ROUTINE 
si32 UTATe ROUTING CONTROLS THE LOOPING OF SUBTESTS, IT WILL INCREMEN 
= ER aU HNE SEMTRAG tt eaN athe tects ky ast gNEPECe 
c it H Y¢ ¢ :0 3 
2438 pi Loa = T HE EERGR ah ee (SrRe ec) iRrg “Tie OI «15:08> 
e435 PATHE SUITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
eer stubs] L8ge gn ue 
2443 hy SCOPE : ;SCOPE=IOT 
S44 
2445 013000 SSCOPE: 
2446 013000 10440 CKSWR +: TEST FOR CHANGE IN SOFT-SwWR 
e447 13002 032777 o40000 166030 18: BIT #BIT14, ISWR ;;LOQP ON PRESENT TEST? 
2448 013019 901952 BNE SOVER | -YES IF Sul4=1 
2449 ageeeSTART OF CODE FOR THE XOR tesTeRaans 
2450 013012 oaoo4i6 éxTSTR 6$ IF RUNNING ON THE SXORe TESTER CHANGE 
5451 THIS INSTRUCTION TO A P=2 
2452 0130!4 913746 900004 MOV DHERRVEC,-(SP) Hid THE CONTEN NTS OF THE ERROR OES TR 
2453 013020 012737 013040 ood004 MOV 85S, JBERAVEC 3;5€T FOR TIMEOUT 
2454 013026 005737 177060 TST 38177060 : TIME OUT ON XOR? 
2455 013032 912637 o00004 MOV eps JRERRVEC : | RESTORE THE ERROR VECTOR 
2456 913036 900421 BR $SVLAD 5360 10 THE NEXT TEST 
2457 013040 Oereee c$: CMP (SP o (SP) :CLEAR THE STACK AFTER A TIME 0 
2458 013042 012637 oOc004 MOV ep) JRERRVEC : sRESTORE THE ERROR VECTOR 
2459 613046 000407 BR 7§ “LOOP ON THE PRESENT TEST 
2460 913050 &$::eeegEND OF CODE FOR THE mon _TESTERSERS 
2461 013050 105767 165727 23: TSTB = SERFLG HAS AN ERROR OCCURRED? 
2462 013054 O0l412 BEG $SVLAD FON 
2463 013056 032777 o01000 165754 BIT 321109, ASR Pop oN ERROR? 
2464 013064 O01404 BEQ 4$ 
2465 013066 O16767 165716 165712 7S: MOV SLPERR,SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
2466 013074 o00420 BR SOVER 
2467 013076 105067 16570: 4S: CLRB SERFLG $:ZERO THE ERROR FLAG 
e468 013102 105267 iE £74 $SVLAD: INCB §TS COUNT TEST NUMBERS 
2463 13106 1IE767 165670 165756 MOVE STeTNM $TESTN 55967 TEST NUNBER IN APT MAILBOX 
e470 012114 O11667 165666 MOV (SP), SLPADR ::SAVE SCOPE LOOP ANRESS 
2471 913120 O11667 165664 MOY (SP) $LPERR ::SAVE ERROR LOOP ADDRESS 2 
2472 012124 905067 165730 CLR SESCOPE s3CLEAR THE ESCAPE FROM ERROR ADORESS_ 
2473 O13130 112767 O00001 165687 Move !ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
2473 O13136 O16777 165€40 iGSE7E SOVER: MOV sresnn SOISPLAY : }DISPLAY TEST NUMBER 
2475 O13184 Ole71E 165636 MOY SLEADR. (SP) ::EUDGE RETURN ADDRESS 
e476 5131s0 00002 RTT t:FIXES PS 


| a 
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evil i) i 14-JUN-77 17:10 PAGE 62 PAGE: 
Ji 09:27 SCOPE HANDLER ROUTINE 


s REKRAEAA RA LALA LALA ARAL A LAER RAE AAL FLERE LALA AEALLARALAFLALLL ESL ELE 


SBT APT COMMUNICATIONS ROUTINE 
5 SHARE RAAA AA AA AAAL AA AEA RARE LALA REL ERA RAAA LALA LAF LE RAALEFARALA LES 


3152 112767 000001 000236 SATY1: MOVB #1,SFFLG ;TO REPORT FATAL ERROR 

3160 112767 000001 O00e2& SATY3: MOVB #1, SMFLG ;TO TYPE A MESSAGE 

3166 00040 BR gatyc 

3129 lle767 000001 00220 gary: MOVB al, SFFLG :;TO ONLY REPORT FATAL ERROR 

3176 Q1004%6 MOV ays -(SP) ;PUSH RO ON STACK 

3200 Q10146 MOV R1)-(SP) : PUSH Rl ON STACK 

3e02 105767 000206 TSTB SMFLG ; SHOULD TYPE A MESSAGE? 

206 001450 BEQ S$ T: BR & 

Oi3e10 122767 OOcOoi 165670 CMPB #APTENY, SENV : OPERATING UNDER APT? 
013216 001031 BNE ;IF NOT: BR 
013220 132767 000100 16566! BITS #APTSPOOL , SENVM ; SHOULD SPOOL MESSAGE? 
Cl3ee6 O014eS BEG 3$ [IF NOT: BR 
013230 017690 000004 MOV J4(SP),RO GET MESSAGE ADDRESS 
013234 062766 O00002 o00004 ADD #2,4(SP) :BUMP RETURN ADDRESS 
Ol3e42 005767 165620 18: TST SMSGTYPE met IF DONE W/ LAST XMISSICN? 
013246 001375 BNE - 1§ ;IF_NOT: WAIT 

3250 O10067 165626 MOV RO, SMSGAD : PUT ADBRESS IN MAILBOX 
013254 106720 2$: TSTB (RO)+ :FIND END OF MESSAGE 
013256 001376 BNE 2s 
013260 166700 165616 SUB $MSGAD, RO ;SUB START OF MESSAGE 
013264 006200 ASR RO :GET MESSAGE LENS TH IN WORDS 

13e66 QO10067 165612 MOV RO, SMSGLGT ;PUT LENGTH IN MAILBOX 
013272 QO12767 OO00004 165566 MOV #4, SMSGTYPE ;TELL APT TO TAKE MESSAGE 
013300 000413 BR 
013302 017667 O00004 O0CdlE 3$: MOV tit 4$ ;PUT_MSG ADDR IN JSR LINKAGE 
013310 O62766 O00002 900004 ADD 2,4(S SP) ; BUMP py ADDRESS 
013316 O16746 164454 MOV 153776 -(SP) : PUSH 177776 _ON STACK 
013322 004767 O0007e JSR PC, $TYPE :CALL TYPE MACRO 
013326 000000 4$: -WORD O 
013330 S$: 
013330 105767 900062 10$: TSTB SFFLG ;SHOULD REPORT FATAL ERROR? 
013334 001413 BEG 12$ 31 T: BR 
013336 005767 165544 TST SENV ; RUNNING UNDER APT? 
O1334e 001410 BEG 12$ ;IF NOT: 
013344 005767 165516 11S: TST SMSGTYPE sf INISHED LAST MESSAGE? 
013359 901375 BNE : IF NOT: WAIT 
013352 017667 OO0004 165510 MOV a4(SP),SFATAL ;GET ERROR # 
013360 005267 165502 INC $MSGTYPE : TELL APT 10 TAKE ERROR 
013364 O6e766 000002 CO0004 12s: ADD #2,4( SP) ‘ BUNP RETURN ADORESS 
QO13372 105067 900020 CLRB SFELG :CLEAR FATAL FLAG 
013376 105067 000013 CLRB $LFLG ;CLEAR LOG G 

34 105067 OOO00E CLRB $MFLG ;CLEAR MESSAGE FLAG 
013406 01260! MOV (SP)+,R1 ;POP STACK INTO Rl 

13410 012600 MOV (SPi+,RO : POP aa INTO Ri 

1341le 000207 RT Pe ; RETURN 

a ree Fe me 

os erere G: -BYT 3L0 
1341é 000 SFFLG: .BYTE JU :FATAL FLAG 
013420 EVEN 
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2534 923290 APTSIZE=200 
ee sieht ete =00 
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APT COMMUNICATIONS ROUTINE 


-SBTTL TYPE ROUTINE 
5 SESE AR AE ESE HEE SE EE HE EE 0 EE EE 


HOURS TREE Tdzc Otte Bs MELLIN ALTA Bey 


L_CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTEF. 
ee: SPILLS CONTAINS THE NUMBER OF PILLER SEHARACTERS REGUIRED. 
; NOT FILLC CONTAINS THE CHARACTER TO FILL AFTER. 


SSCALL: 
ix) USING A TRAP INSTRUCTION 
TYPE , MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


YPE 
te MESHOR 


$TYPE: TSTB nee iSO rere A TERMINAL? 
HALT HALT HERE IF NO TERMINAL 


MOV Re tsey Ro a ye ADRESS OF A ASCIZ STRING 


CMPB = RAPTENY,SENV =; : RUNNING IN 
BNE 62 >:NO,GO CHECK FOR "APT CONSOLE 
BITB 8APTSPOOL,SENVM ::SPOOL MESSAGE T 
BEQ 625 ?:NO,GO CHECK FOR CONSOLE 
MOV RO,61$ : MES ORESS FOR APT 
JSR PC; $ATY3 :: SPOOL MESSAGE T 
61: .WORD =O j sRESSAGE A 
62$:  BITB  #APTCSUP, SENVM ? CONSOLE SUPPRESSED 
BNE ii0Es SKIP TYP 
23: MOY8  (RO)+,-(SP) ; 5 PUSH CHARACTER T 0 BE TYPED QNTS STACK 
BNE 4g :BR IF IT ISN'T THE TERING ATO 
TST (SP)+ 44 TERMINATOR POP IT OFF THES TACK 
60S: MOV (SP)+, RO ::RESTORE RO 
3S: B00 #2, (SP) sss RETURN PC 
4S: che HT, (SP) !:BRANCH IF <HT> 
CHPE #CRLF, (SP) :;BRANCH IF NOT <CRLF> 
TST (SP)+ ;;POP <CR><LF> EQUIV 
TYPE :: TYPE A CR AND LF 
CLRB § $CHARCNT : CLEAR CHARACTER COUNT 
BR 2 ::GET NEXT CHARACT Te 
cs: JSR PC. STYPEC 3300 TYPE THIS CHARACTER 
és: CMPB 3s SF ELL, (SP)+ :1S IT TIME FOR FILLER CHARS. ” 
BNE 23 ::IF NO GO GET NEXT CHAR 
MOV SNULL,-(SP) :3GET # OF niaeteR CHARS. NEEDED 
: AND THE N L CHAR. 
7$: DECB  =s«&A SP) : DOES A NOLL “NEED TO. BE TYPED? = 
BLT &$ :7BR IF NO--GO POP THE NULL OFF OF STACK 
ISR PC, $TYPEC TYPE. @ NULL 


0: 


oor 


LO6 
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0 7 090072 CB HARCNT ::DQ_NOT COUNT AS A COUNT 
S55 ARERR UGGS ge Bol 
2538 sHORIZONTAL TAB PROCESSOR 
2600 013606 112716 000040 8$: MOVB ; sREPLACE TAB_WITH SPACE 
2601 O1361e 004767 000014 98: JSR Bo, gTePEC 3 A SPACE 
e602 013616 132767 000007 oD00Se2 BITB 87, SCHARCNT Het F NOT AT 
2603 013624 001372 BNE AB STO 
2604 013626 005726 TST (SP)+ ; ; POP SPACE OFF STACK 
2605 013630 000724 BR es ;;GET_NEXT CHARACTER 
2606 013632 105777 165212 STYPEC: TSTB a@STPS WAIT UNTIL PRINTER IS READY 
2607 013636 100375 BPL STYPEC 
013640 116677 O00002 165204 MOVE  2(SP),a$TPB ;:LOAD CHAR TO oe TYPED INTO DATA REG. 
013646 12e766 000015 000002 CMPB ss #CR, LSP) $315 CHARACTER A CARRIAGE RETURN? 
2619 013654 001003 BNE 1$ :BRANCH IF NO 
2611 013656 105067 000014 CLRB SCHARCNT 5; YES--CLEAR CHARACTER COUNT 
2612 013662 O00406 ae $TYPEX 
2513 013664 122766 O00012 oo0002 1S: CMPB ss LF, o( SP) 44 (3 CHARACTER A LINE FEED? 
2614 913672 001402 BEQ STYPEX : BRANCH _IF YES 
2615 013674 105227 INCB (PC) + ss COUNT THE CHARACTER 
2616 913676 000000 SCHARCNT: . WORD 2 : CHARACTER COUNT STORAGE 
gel? 013700 000207 STYPEX: RTS PC 
sbi .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
2621 He ee ETT BINARY NUMBER TO A GDI 
bee :ATHIs ROUTINE Is USED To ¢ ANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
2623 :#0CTAL (ASCII) NUMBER AND WY PE IT. 
eed eg TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
e626 i MOV NUM, - (SP) ;;NUMBER TO BE TYPED 
2627 :# TYPOS s3CALL FOR TYPEOUT 
2628 ie .BYTE N N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
2625 i BYTE M :;M=1 OR 0 
2635 : 1=TYPE LEADING ZEROS 
g631 :3 :§ OSGUPPRESG LEADING ZEROS 
2633 ; #BTYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
2624 :*$TYPOS OR STYPOC 
2635 :*CALL: 
2636 :# Hoy NUM, - (SP? ;;NUMBER TO BE TYPED 
ob27 te TYPON !:CALL FOR TYPEOUT 
oi 
2639 :#$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
2E4C :*CALL: 
64 ti MOV NUM, -(SP) ss aaER TO_BE TYPED 
gbie 1% TYPOC :CALL FOR TYPEOUT 
2644 013702 017646 900000 $TYPOS: MOV a(SP),-(SP) PICKUP THE MODE 
2645 013706 116667 000001 000211 MOVE 1(5P),$0FILL 5 ;LOAD ZERO FILL SWITCH 
2646 013714 112667 90020 MOVE (SP)+,SOMODE+i ;;NUMBER OF DIGITS To TYPE 
2647 013720 Obe716 000002 ADD #2, (SP) ::ADJUST RETURN ADDRESS 
2648 013724 O00406 25 $TYPON 
2649 013726 112767 000001 900171 STYPOC: MOV #1, SOF ILL ;;SET THE ZERO FILL SWITCH 
2650 013734 112767 OC0O0E O001e5 MOVB #6, SOMODE+1 :;5ET FOR SIX(6) DIGITS 


MO6 
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DZDLDB.P11 14-JUN- 8. og: 27 BINARY TO OCTAL (ASCII) AND TYPE — 
2651 g1374e 112767 000005 900154 $TYPON: NOV iS, SOCNT s3$ET THE ITERATION COUNT 
2653 013752 010446 MOV RY! - (SP) js BAVE R4 
2654 013754 O10S46 MOV RS’ -(SP : SAVE RS 
e655 13756 116704 000145 HOVE SGHODESI, RY ::GET THE NUMBER OF DIGITS TO TYPE 
2657 013764 062704 O00006 ADD We, RY ; 3 SUBTRACT . IT FOR MAX. ALLOWED 
2658 013770 110467 000132 MOVB —- R4’ SOMODE ::SAVE IT FOR 
2659 013774 116704 O00125 MOVB  $0FILL,RY ::GET THE ZERO FTL SWITCH 
014000 O1660S o00012 MOV 12(SP),RS ::PICKUP THE INPUT NUMBER 
2661 014004 005003 CLR R3 ‘CLEAR THE OUTPUT WORD 
2662 014006 006105 1S: ROL RS ;;ROTATE MSB INTO “C™ 
2663 O14010 OO0404 BR 33 M 
2664 O14012 006105 23: ROL RS : TEORM THIS DIGIT 
65 014014 006105 ROL RS 
2666 O14016 O06) ROL 5 
2667 014020 010503 MOV RS,R3 
2668 O14022 006103 3$: ROL R3 ::GET LSB OF THIS O1GIT 
2669 014024 105367 000076 DECB $OMODE ;;TYPE THIS DIGIT? 
2670 014030 100016 BPL 75 
2671 014032 042703 177770 BIC #177770,R3 ;$GET RID OF JUNK 
2672 014036 OO1002 BNE 4g T 
2673 O14040 005704 TST RY SUPPRESS THIS 0? 
2674 O14042 001403 BEQ c$ :BR IF YES 
2675 O14044 O0se04 4g: INC RY ::DON’T SUPPRESS ANYMORE os 
2676 O14046 052703 OcO0b0 BIS #’0,R3 ; {MAKE THIS DIGIT 
2677 O140S2 052703 oog040 S$: BIS #’ (R23 :MAKE A ci IF NOt ALREADY 
2678 O14056 110367 oo0040 MOVB  R3, AS :: SAVE PORT YPING 
2679 014062 104401 014122 TYPE 8 :3G0 TYPE THIS DIGIT 
2680 O14066 105367 900032 7$: DECB = $0CNT T BY 
2681 014072 003347 BGT 2g 3B IF MORE TO DO 
2682 014074 O02402 BLT 6S :BR IF DONE 
se GE eee ye USI ABT BPTSEEYT 8 
2685 014102 012605 6S: MOV (SP)+,R5 + RESTORE is” 
2686 O14i104 012604 MOV (SP)+°R4 :RESTORE RY 
2687 O14106 612603 MOV (SP}+'R3 ::RESTORE R3 
2688 O14110 OI6666 oD0002 ocDD004 MOV 2(SP)4(SP) ::SET THE STACK FOR RETURNING 
2689 O14116 012616 MOV (SP)4° (SP) 
2690 014120 o00002 T ; ;RETURN 
2691 O14le2 90 ag -BYTE O ::STORAGE FOR ASCII DIGIT 
5eg3 biatsa «= BOS Socnt: ‘BYTE 9 {TERMINATOR POBUNTER oe NE 
i? 2 
2694 014125 990 SOFILL: .BYTE 0 ::ZERO FILL SWITCH 
2695 Ol4iee opooo0 SOMODE: (WORD 6 !:NUMBER OF DIGITS TO TYPE 
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BINARY TO OCTAL (ASCII) AND TYPE 


PAGE: 0078 


.SBTTL TTY INPUT ROUTINE 


| ogy ate eat inte as 
NABL LSB 


LTE GUITEH REGISTER CHE PLT 


;KSOF THARE rg Me BEGISTER Care ROU 


TINE. 
RAP HANDLER 


*ROUTINE Is ‘ENTERED FROM THE T WILL 
SERVIC TEST FOR CHANGE IN SOFTWARE atte REGISTER TRAP CALL 
jSHHEN oP En ING IN TTY FLAG MO 

$cKS #SWREG, SWR 51S THE SOFT-SWR SELECTED? 
* ONE 1 ; ;BRANCH IF _NO 
TSTB) ss ASTKS :CHAR THERE? 
BPL 5 3316 NO, DON’T WAIT AROUND 
MOVB §a$TKB,-(SP) *:SAVE THE CHA 
BIC #40177, (SP) ::STRIP-OFF THE ASCII 
CMF #7, (SP3+ 3315 IT A CON{ROL G? 
BNE 15 ;iNO, RETURN TO USER 
CMPB = SAUTOB, #1 i ARE LE WE RUNNING IN AUTO-MODE? 
BEQ 15$ ::BRANCH IF YES 
TYPE » SCNTLG ;;ECHO THE CONTROL-G (tG) 
SGTSWR: TYPE SMSWR 3; TYPE CURRENT CONTENTS 
OV  SWREG, -( SP) ;SAVE SWREG FOR TYPEOUT 
TYPOC :G0 TYPE--OCTAL ASCII(ALL DIGITS) 
TYPE  ,SMNEW ::PROMPT FOR NEW SWR 
19$: CLR =(SP) ;;CLEAR_COUNTE 
CLR -(5P) :: THE El Wd 
73: TSTB) ss AS TKS ::CHAR THERE? 
BPL 7§ ::IF NOT TRY AGAIN 
MOVB a$TKB,-(SP) »:PICK U 
BIC #10177, (SP) : ;MAKE if nT ASCII 
9S: CMP (SP), #25 315 1 IT A CONTROL-U? 
BNE l ss GRAN H IF NOT 
TYPE § ,$CNTLU ECHO CONTROL-U (tU) 
20$: ADD #6. SP + TENORE PREVIOUS INPUT 
BR 19$ ::LET’S TRY IT AGAIN 
10S: CMP (SP), #15 :;IS IT A <CR>? 
BNE 16$ :§ BRANCH IF NO 
TST 4(5P) ::YES, 7S IT THE =IRST CHAR? 
BEG 11$ t EBRANCH IF YES 
MOV 2(SP), aSWR ::SAVE NEW SUR 
118: AOD WG, SP. ::CLEAR UP STA 
148: TYPE RLF : ECHO <CR> AN 
CMPB STNTAG. #1 : RE-ENABLE me Keo. INTERRUPTS” 
BNE 15$ ::BRANCH IF NOT 
“ mov 8100, a$TKS RE-ENABLE TTY KBD INTERRUPTS 
4s3: a 
163: ISR PC. STYPEC "TECH “ee 


oO. 


NZ 


aa ef Bf 28 27 Bf. DOLL ee LL Le LL ee ee Le el ee ee ee ee ee ee eee el 


BO? 


.M3IN. MACYLI 30(1046) L4-JUN-77 17:10 PAGE 68 PAGE: 0073 
DZDLDB. Pi) 14-JUN-77 09:27 TTY INPUT ROUTINE 
2753 014336 Oelbe7 000060 CMP (SP), #60 ;;CHAR < Q? 
2754 O14342 002420 BLT ;;BRANCH IF YES 
2755 O14344 O2l627 000067 CMP (SP), #67 :;CHAR > 7? 
e756 014350 003015 BGT 1 ;;BRANCH IF YES 
275? O0143Se O4e726 000060 BIC #60, (SP)+ ;;STRIP-OFF ASCII 
2758 014356 005766 000002 TST 2. SP) :;IS THIS THE FIRST CHAR 
2759 014362 001403 BEQ 17$ ;;BRANCH IF YES 
760 014364 00631 ASL «(SP :iNO, SHIFT PRESENT 
2761 006216 ASL (SP) ii eee OVER TO MAKE 
7 014370 OO06316 ASL (SP) ROOM FOR NEW ONE. 
2763 014372 005266 9000002 17$: INC e(SP) tT KEEP COUNT OF CHAR 
2764 O14376 OSEE1S 177776 BIS -2(SP), (SP) 73967 IN NEW CHAR 
2765 O1440e o00707 BR 7$ ;GET THE NEXT ONE 
erS& O144O4 104401 001062 18$: TYPE $QUES I TYPE °<CR><LF> 
2767 14410 900720 BR 208 SIMULATE CONTROL-U 
Eres -DSABL LSB 
27é3 
2770 
e771 TCTTTTTT TTT TTT TTT TTT TTT TTT i ttt TTT titi tt tite 
ae :ATHIS. ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
77 : 
2774 7% ROCHR ;; INPUT A SINGLE CHARACTER FROM THE TTY 
2775 i» RETURN HERE : CHARACTER. IS ON K 
2778 i :;WITH PARITY BIT STRIPPED OFF 
cet 
2778 
2779 Ol44l2e OLle4E $RDOCHR: MOV (SP), -(SP) pice oa THE PC 
e780 Ol44i4 016666 000004 000002 MOV 4(SP}2(SP) 7398 VE THE PS 
2781 Ol4422 105777 64416 1$: TSTB a$TKS FOR 
2782 O144%26 100375 BP. 1$ 3A ee Ee 
2783 O14430 117766 l644le o00004 MOVE d$TKB,4(SP) i. THE T 
7 014436 042766 177600 900004 BIC etC<177> 4(SP) ;GET RID OF ATU IF ANY 
e785 Ol4Y444 O2662e7 900004 900923 CMP 4(SP), #23 $315 IT A CONTROL-S? 
2786 O144Se 001013 BNE 3$ ;BRANCH IF NO 
2787 O144S4 105777 164364 2s: TSTB a$tKS tT UAIT FOR A CHARACTER 
2788 014460 100375 BPL 23 ;;LOOP UNTIL ITS THERE 
2789 Ol446e 117746 164360 MOVB a$TKB, -(SP) 3K CHARACTER 
2790 QO14466 042716 177600 BIC etcl7? ig MAKE IT 7-BIT ASCII 
2731 O14472 Oeebe7 000021 CMP (SP)+, 21S IT A CONTROL-G? 
27392 014476 001366 BNE es LIF NOT Naas IT 
27393 014590 900750 BR 1$ ry 
279% O14S02 Oe6627 OO0004 O00140 38: CMP 4(SP), #140 :: 1S tT SBPER CASE? 
27395 O14Si0 902407 BLT 4g BRAN H IF Y 
273 014512 O2b6e7 O00004 9000175 CMP 4(SP), #175 tts Ae A SPECIAL CHAR? 
2737 914520 9003003 BGT 4§ + ORE FY 
2798 O14S22 O4e766 ooco4d 2300004 BIC #40, 4(SP) AKE tr UPPER CASE 
2799 014530 90000e 48: RTI :o0 BACK TO USER 
2200 a sseeets betenipebeiindeopanatioinerteactaselenanieeienaaian 
e801 -$THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
e&Se ;#CALL: 
203 te RDLIN ;;INPUT_A STRING FROM THE TTY 
cfl4 :% RETURN HERE ;;ADDRESS OF FIRST | CHARACTER aHTLL SE ON THE STACK 
zest i+ S{TERMINATOR WILL BE A BYTE OF ALL O°S 
2607 C1422 O1034e SROLIN: MOY RB, -(5P) SAVE R3 
fete Ci4¥SS4 Cle705 OL4e4o 1$: MOV e$tTYIN,R3 ::GET ADDRESS 


CO? 
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DZDLDB.P11 i4-JUN-77 09:27 TTY INPUT ROUTINE 

2809 O14S4O O22703 O14650 23: CMP SSTTYINGS. .R2 : BUFFER FULL? 

2810 o14544 101405 BLOS = «4 

2811 914546 104407 ROCHR 1390, READ ONE CHARACTER FROM THE TTY 

28!2 O145S0 112613 MOVB = (SP) +, (R3) ::GET CTER 

2813 O145S2 122713 Oo00177 10$:  CMPB  #177,[R3) 31S 1f 4 RUBDLT 

2814 O14556 001003 BNE 3$ 339KIP IF NOT 

2815 O14560 104401 001062 4g: TYPE SQUES :TYPE A '?? 

2816 O14564 O00763 BR {1g !:CLEAR THE BUFFER AND LOOP 

2817 O14566 111367 ooco44 3$: MOVB (R3), 98 ::ECHO THE CHARACTER 

2818 014572 104401 014636 TYPE 9$ 

2819 014576 122723 O000i5 CMPBséBIS, (R3D+ js CHECK FOR RETURN 

2820 014602 001356 BNE 2$ ::LOOP IF NOT RETU 

2821 O14604 105063 177777 CLRB 2s - 1 (R33) i CLEAR RETURN THEN 15) 

2822 O14610 10440! O01064 TYPE SLF ;; TYPE A LINE FEED 

2823 O14614 912603 MOV (SP)+,R3 RESTORE. BS 

2824 O14616 O11646 MOV (SP). *(5P) : FADJUST THE STACK AND PUT RODRESS_ OF THE 

2825 014620 O16666 900004 o00002 MOV 4(SP} 2(SP) 7 FIRST ASCII CHARACTER ON ! 

2826 Ol4626 Ole766 O14640 000004 MOV eSTTYIN, 4(SP) 

2827 014634 O0000e RTI RETU 

2828 914636 coo 9S: .BYTE 90 STORAGE FOR ASCII CHAR. 70 TYPE 

2829 014637 900 “BYTE O i TERM NATOR 

2830 01464 000010 STTYIN: .BLKB 8. :: RESERVE g BYTES FOR TTY INPUT 

2831 O14650 052536 oosois 900 §CNTLU: ZASCIZ /tu/<iS><12> : CONTROL 

2832 O14E55 136 906507 000012 $CNTLG: .ASCIZ *t6/<15><1> : CONTROL we 

2833 014662 005015 053522 O20i22 SMSWR: .ASCIZ <15><le>-SWR = / 

3834 O14870 20075 990 

2835 14673 040 O4704C OS3SCS SMNEW: .ASCIZ ~ NEW = / 

S826 514700 o26448 Ooo04e 


18 Ta Fa Ta Ti Pa Fa Pa Fa Fa Fa Fa Fa Fa Pa Pa Fa Fa Fa Pa Pa Fa Pa Pa Fe Ps Pe Pe Pa a a ee es es 


DO? 
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DZDL08. P11 14-JUN-77 09:27 TTY INPUT ROUTINE 

2838 
2839 
aeic .SBTTL TRAP DECODER 
2842 5s RELEERELE ELAR AAA LARA ALA LEAK AA AAAS AAA ELA RS ALLELES AALLLA SEES 
2943 iATHIS ROUTINE WI Wi PICKUP ont rhOwER BYTE, OF THE “TRAP” INSTRUCTION 
2944 USE IT TO I THE T OLE FOR THE STARTING ADDRESS 
284s aor THE DESIRED ROTINE OMEN HEING A ae WADDRESS OBTAINED IT WILL 
seu :%G0 TO THAT ROUTINE. 

¢ 
2848 14704 O1O046 STRAP: MOV RO, -(SP) : SAVE RD 
2849 O14706 916600 ooDcd2 MOV e(SP), RO :1GET TRAP ADDRESS 
2850 014712 O0S749 TST :: BACKUP BY 2 
2951 14714 111090 MOVB iROD. RO 35G61 RIGHT BYTE OF TRAP 
ess? 014716 906300 ASL RO POSITION FOR INDEXING 
2853 014720 616000 3o14740 MOV $TRPAD(RO) ,RO HH INDEX TO TABLE 
goss 014724 900200 RTS RO GO TO ROUTINE 
2856 
soe »: THIS IS USE TO HANDLE THE “GETPRI” MACRO 
2e5S O14726 O1ib46 $TRAP2: MOV (SP) {SP »;MOVE THE PC DOWN 
2860 014730 OL666& op0004 oo0002 MOV asp} 2°SP) 5s MOVE THE SW DOWN 
e861 014726 900cd2 RTI !IRESTORE THE PSW 
eevee 
2863 .SBTTL TRAP TABLE 
DSES ;#THIS TABLE UJNTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
e866 -*BY THE “TRAP” INSTRUCTION. 
ess/ 
296 : ROUTINE 
ests Se 
2870 O1474O OLN7ee $TRPAD: .WORD  S$TRAP2 
2871 Ol4742 913420 $TYPE ;;CALL=TYPE TRAP+1( 104401) TTY TYPEOUT ROUTINE 
2872 014744 613726 $TYPOC :CALL=TYPOC  TRAP#2(104402) TYPE OCTAL NUMSER (WITH LEADING ZERCS) 
2873 «O14746 013752 $TYPOS ;:CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LERCING CESoS 
278 B149750 S12742 STYPON ::CALL=TYPON  TRAP+4(1044O4) TYPE OCTAL NUMBER (AS PES LAST CALL. 
eer 014752 014200 SGTSWR ;;CALL=GTSWR § TRAP+5(10440S) GET SOFT-SWR SETTING 
& é 
2878 O14754 914130 SCKSWR 3 :CALL =CKSiR TRAP+5( 104406) TEST FOR CHANGE IN SOFT-SwR 
2875 C14756 O1441e SROCHR :;CALL=ROCHR  TRAP+7(104407) TTY TYPEIN CHARACTER ROUTINE 

6 14760 314535 $ROLIN Seer oRoL oN TRAP+!0( 104510} TTY TYPEIN STRING ROUTINE 
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. TEST 
Sees 3 nensceddlasteotcchesabenunesqnnurseunvavesseunensbeereneocssans 
ese4 peTHIS ROUTINE WILL ECHO ANY CHARACTER TYPED 

ae 
SeEe :%THE TEST IS HALTED BY TYPING A CONTROL-C 
2987 -*TEST CAN BE RESTARTED AFTER HALTING BY JUST CONTINUING 
2sss . UHHH HHHEHEEHB HEHEHE HHH HEEB EEE HEHEHE Eee #4 
2889 014762 PAHO: 
2890 014762 o00005 RESET :CLEAR EVERYTHING 
2891 O147&4 ile777 Oo000S2 165402 MOVE = #°®, JCTBUF - TRANSMIT PROMPT "#" 
2892 014772 105777 165379 2s: TSTB  acReSR -WAIT FOR INPUT 
2893 014776 100375 BPL 
2894 O15000 117777 165364 165366 MOVB  SCRBUF,3CTBUF  ;ECHO INPUT 
2sss 015006 017700 165356 MOV JCRBUF . RO :STORE INPUT 
289 015012 100023 BPL 3 -BR IF “ERROR"NOT SET | 
2897 015014 OSe701 910000 81S #81T12,R1 :SET PARITY ERROR TEST MASK 
2898 015020 030100 BIT R1,RO :CHECK FOR PARITY ERROR FLAG 
2839 015022 001403 BEG 33 :BR IF NOT SET 
2300 915024 O04767 oD00S6 ISR PC MSG “REPORT PARITY ERROR 
2301 015030 015134 MPAR ae 
2902 015032 906301 33: asi R1 ;SHIFT MASK TO TEST “FR” FLAG 
2903 915034 030100 BIT R1,RO ! TEST FOR FRAMING ERROR FLAG 
2304 015036 001403 BEO 4 :BR IF NOT 
2305 O15040 O64767 oOOco4e JSR PC MSG :REPSORT FRAMING ERROR 
2306 915044 O15145 MER fe 
2907 015046 O06301 4$: ASL R} :SHIFT MASK TO TEST “OR” FLAG 
2908 915950 930100 BIT R1,R0 : TEST FOR OVERFLOW ERROR 
2909 915052 001403 BEQ S$ :BR IF NOT SET 
2918 15054 904767 ooD026 ISR PC MSG "REPORT OVERFLOW ERROR 
2911 015060 015157 MOR 
2312 015062 oO42700 ocde0d cs: BIC #BIT7,RO :CLEAR ANY PARITY BIT 
2913 015066 O22700 900003 CMP #2,R0 :WAS INPUT CONTROL-C 
2314 015072 9001337 BNE :BR IF NOT 
2915 615074 O04767 900006 JSR PC MSG :REPORT PROGRAM STOP 
2916 915100 O15172 MSTOP 
2317 015102 090000 HALT sEND OF TEST HALT 
2918 C15104 990726 BR ECHO ‘AFTER END OF TEST HALT pee fos, 
2213 : PRESS CONTINUE TO RESTART ECHO TEST 
exseu 
2921 015106 013600 MSG: MOV a(SP)+,R0 :PICK UP MESSAGE POINTER 
2S22 O15110 Obe746 o00002 abo #2,-(SP) “ADJUST RETURN PC 
2923 O15114 105777 1l€Ses2 WAIT: TST actcsr ‘WAIT FOR XMIT DONE 
2924 015120 100375 BPL WAIT Nitead 
2325 O1Si22 112077 1ese4e MOV (RO)+,3CTBUF = ;SEND CHARACTER __ 
2326 915126 105710 TSTB (RB) :IS THIS END SF MESSAGE? 
2927 $15130 001371 BNE Wart :BR IF NOT 
238 015132 900207 RTS BC : RETURN 
e 
2920 015124 OOSOIS O40S20 O44S22 MPAR:  .ASCIZ <CR><LF>/PARITY’ 
2931 OiSi4e Ooc4se4 00 > 
2922 O15145 15 O43012 O40S22 MFR: LASCIZ <OR) <LF> “FRAMING” 
2932 O15i52 O44SIE 943516 000 
2934 015157 015 O47412 oO42S26 MOR: JASCIZ <CR><LF> “OVERFLOW: 
2525 O15i64 O431e2 047514 900127 
eS2e 15172 OOSCIS OSele3 OSC117 MSTOP: .ASCIZ <CR)<LF> “STOP. 
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2938 
2333 
ea 015202 EVEN 
sais .SBTTL TERMINAL OUTPUT TEST 
2o4s Te Eee ee TTT aT MRL TROLE CIOMCTERG FOR TF 
es4s ;*THIS ROUTINE WILL OUTPUT a WRITABLE CHARACTERS FOR THE 
ese ;*THE OCTAL CODE O40 --> 377 
234; :*32 CHARACTERS ARE PRINTED ON EACH LINE 
cave : #THE PATTERN IS REPEATED EVERY THREE LINES 
can : errrerieeertererrrrcrrrrrrrritti terre rer rrreterery) 
29$e 015202 O1e701 900040 OUTTST: MOV #40,R1 ;LOAD FIRST WRITABLE CHARGCTER 
2953 015206 Q12700 900040 1$: MOV #40 RO ‘LOAD CHAR COUNT PER LINE 
e9s4 O1Sele 105777 165154 2s: TST aCTUSR : WAIT FOR DONE 
23$5 015216 100375 BPL 2$ 
2956 O1See0 010177 165150 MOV R1, aCTSUF ; TRANSMIT A CHARACTER 
2957 O015ee4 105e01 INCB Rl : INCREMENT CHARACTER CODE 
2958 OiSe26 005300 DEC RC :DECREMENT CHAR COUNT 
01Se30 00137 BNE 2$ BR IF LINE NOT COMPLETE 
01Se3e 004767 JSR PC,MSS : SSUE CR,LINE FEED 
015236 001063 $CRLF 
915240 105777 TSTB acRCSR ANY CHARACTER RECEIVED” 
015244 100404 BMI s Y . 
G15e4%6 032701 BIT s61T7, Fl :FINISHED ONE PASS OF WRITABLE CHARACTERS” 
0} 001353 BNE QUTTS! :8R IF _Y 
01 900754 BR 1g :IF NOT WRITE NEXT LINE 
Ql 905077 38: CLR JCRBUF sELERR RECEIVER 
- - OSoSSC HAL T , ; TEST 
O0074 BR OUTTST ‘Bees aR TEST IF CONTINUED 
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2973 
2574 015266 040503 020118 O47S16 EMI: .ASCIZ “CAN NOT ACCESS TCSR- 
2375 015274 020124 041501 42503 
2976 015302 051523 oSe040 051503 
2977 015310 O00i22 2 ¥ 
2978 915312 O40S03 O20116 O47S16 EM: .ASCIZ “CAN NOT ACCESS TBUFY 
2978 015320 020124 941501 942503 
2980 015326 0515283 OS2040 ose502 . 
2981 015334 O00106 PS ee PT 
2982 015336 041524 051123 oO42040 EN2: .ASCIZ /“TCSR DONE NOT CLEARED WITH TSUF FULL- 
2983 p1534s p4riiz be01 S o47s16 
2984 9153 201 46103 40505 
2985 015360 oO42S522 020104 O445e7 
2996 015366 944124 OS2040 52502 
2987 015374 020106 952506 046114 
2988 31340 96 pam ud ‘ 
2989 O154 ie4 OS1S03 020122 EM: .ASCIZ “TCSR DONE NOT SET- 
2990 015410 o47504 O42516 O47040 
2991 O15416 OS52117 OS1440 OS2105 
2992 015424 000 
2993 915425 124 051503 020122 EMS: .ASCIZ “TCSR DONE NOT SET WITH RESET- 
2994 u32 047504 O42516 047040 
2995 O15440 OSell7 Osi440 Osz2i0s 
2996 446 053440 OS2111 O20110 
2997 015454 O42522 042523 090124 : ; 
2998 015462 O40S03 020116 O47S16 EME: ,ASCIZ “CAN NOT ACCESS RCSR- 
2999 915470 020124 941501 O4e503 
2000 015476 051523 051049 051503 
3051 O15504 O0Dlee 
39 5506 049503 920116 O4751g EM: ,ASCIZ “CAN NOT ACCESS RBLF. 
3003 015514 O20124 O41501 042503 
3004 O15522 951523 951040 9oses502 
3005 015530 O00106 a 
3008 5532 040502 020116 O47516 EM1D: .ASCIZ “CAN NOT ACCESS LKS- 
O8 O1ss46 oS1523 946040 951513 
3009 915554 000 


3019 e278 102 OS2l11 O20060 EMli: .ASCIZ -“BITO OF TCSR NOT CLEAR AFTER RESET 
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S620 040503 020116 O47516 EMi2: .ASCIZ “CAN NOT SET BITS OF TCSRY’ 


ueor 0415e4 051123 
5651 103 047101 O47040 EMi3: .ASCIZ “CRN NOT CLEAR BITC OF TCSR’ 
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15704 O4eSee O4eSe3 O20le4 EM14: .ASCIZ “RESET DID NOT CLEAR BITS OF TCSR 
S712 O84504% O20104 O47Si£ 
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6302 

6310 Qe0066 043117 052040 

pace O42See O4eSe3 Oe0le4 EMeS:  .ASCIZ “RESET CID NOT CLEAR BITS OF TCSR 
344 Qe0le2 O44502 033124 

3Se 047440 eco 041524 

3 102 052111 Oe00bE EMe&: .ASCIZ /BITE OF RCSR NOT CLEAR AFTER RESET 


ow 
372 043117 O51040 051503 


ae Re Be pile pe 
ed) ( 
Se HES Bie ig Bes 
A 
3032 015745 102 QSell1 Qe0O0h2 EMIS: .ASCIZ /BITe OF TCSR NOT CLEAR AFTER RESET / 
3033 015752 043117 OS2040 051503 
oe HED Rlig Ree ie 
( 
3036 015774 043101 OY Qe lee 
3037 016002 o42522 o425e3 0001c4 ae ‘ 
30 016010 O40S503 020116 047516 EM16: .ASCIZ /CAN NOT SET BIT2 OF TCSR. 
3039 O16016 Q2012e4% Q4eS23 Oe0le4 
aoe 016024 O44502 Q311e4% 047440 
2041 Q16032 020106 O0415e4 051123 
3042 016040 000 , ee gaps 
3043 015041 103 047101 OY7040 EMIT:  .ASCIZ “CAN NOT CLEAR BIT2 OF TCSe 
SO44 OL6046 052117 O4144O 042514 
2045 016054 051101 041040 O0Se111 
2046 016062 Oe006e 043117 052040 
3047 016070 051503 000122 em Zs LG ea i RRO 
3048 016074 O42S2e O4eSe3 Oe01e4% EM20: .ASCIZ “RESET DID NOT CLEAR BITe OF TCSR, 
3049 016102 O44504 020104 O47516 
3050 016110 020124 046103 940505 
305i 016116 OeQlee O4450e 031124 
30Se 016124 O47440 020106 041524 
3053 Ol6132 051122 O00 , : % . 
3054 016135 1 OS2el11 O20066 EMel: .ASCIZ ;BITE OF TCSR NOT CLEAR AFTER RESET. 
3055 916142 O43117 OSe040 051503 
3056 O16150 QeO0lee O47516 020124 
3057 O16iS6 O04 940505 Oe0le2 
3058 O16164 043101 O42S24 OeCi2e 
3059 016172 O%eSe2e 042523 7524 
3060 916209 | efareeOeET 
3061 015201 O44515 020124 EM22: .ASCIZ “XMIT INTERRUPT AT PRIORITY ; 
3062 016206 047111 O42S5e% 051122 
3063 016214 O501e5 020124 052101 
3064 OClbee2 950040 O44Se2 05 
3065 916230 052111 920131 900067 Bias ee A Paya eh 
3066 016236 040503 020116 O47516 EM22: .ASCIZ “CAN NOT SET BITS OF CSR 
3067 016244 020124 O4e523 020124 
3068 Ol6252 044502 033124 O47440 
2969 016260 020106 041504 051123 
2070 Oleeee 000 . ee 
3071 016267 103 O47101 O47040 EMe4: .ASCIZ “CAN NOT CLEAR BITS OF CSR. 
3072 Sra 4 052117 O41440 42514 
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3084 016376 Oe0lee O47516 Dedle4 
3085 016404 046103 040505 OeQlee 
5 tins Bal Bee 
3088 016426 041522 051126 O4444O EM27: .ASCIZ /RCVR INTERRUPT WITH PRIORITY 77 


6450 
30392 016456 uinss 054524 033440 
3094 016465 O03 O47101 O4704O0 EM30: .ASCIZ /CAN NOT SET BITE OF RCSR. 


30% 6 041040 OSelii 920066 
Se He Gale ibe test 
3099 6516 O40503 020116 O47516 EM31: .ASCIZ “CAN NOT CLEAR BITE OF RCSF. 
3100 6524 020124 046103 040505 
3101 S32 O2e0lee 4S 033124 
3102 6540 O4744O 020106 0415¢ee2 
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666 0SeS2e 


3 3 SS I a 
o o 


el 
702 020110 051120 047511 
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6724 052117 051440 052105 
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017303 EMY?: 
017303 122 ~O41Se4 O4444D EM¥6:  .ASCIZ “RTC INTERRUPT DID NOT OCCUR’ 
017310 OS2116 051105 OS252e 
316 052120 942040 
17332 125 oD ; 
017337 i2@2 O41S°4 O42040 EMSO: .ASCIZ /RTC DOUBLE INTERRUPT’ 
17 
Biosey | basese Dees 020124 EMS1:  .ASCIZ /RESET DID NOT INTERRUPT” 


il 
017414 OSelee 01 O47111 EMS2: .ASCIZ /RTC INTERRUPT DID NOT CLEAR WITH SIT? OF LkS- 
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047514 O4S503 EMS3: .ASCIZ “CLOCK REPEATABILITY’ 
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7611 130 044515 020124 EMS7: .ASCIZ /XMIT INTERRUPTS WITH ENABLE CLEAR” 
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76 EMSS: 
23 15 020124 EMBO: .ASCIZ /XMIT DID NOT INTERRUPT’ 
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if Bei oda EMb1: .ASCIZ /XMIT RE-INTERRUPTED/ 


355) pigzis ppatee oS0ieS O4eSe4 
017726 047514 pie 1gh 047111 EMb2:  .ASCIZ “LOADING TBUF DID NOT CLEAR INTERRUPT / 


el art pt gpd eat A 


000 
17773 lee aad Sn O20122 EM63: .ASCIZ /RCVR ACTIVE NOT SET’ 
000 
3233 020017 l22 953103 O20122 EMEY:  .ASCIZ /RCVR DONE NEVER SET/ 


3237 020043 lee 053103 Oe2012e2 EMES:  .ASCIZ “RCVR ACTIVE NOT CLEARED WITH DONE SET’ 


11] ‘ 
ge42 020100 047504 ie, 051440 
3244 020111 puohan 051505 oS2i0S EmMéé: .ASCIZ RESET DID NOT CLEAR RCVR DONE’ 
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Soe ie RAN Sale 
3250 020147 122 051104 O42440 EME7:  .ASCIZ /ROR ENABLE DID NOT CLEAR RCVR DONE 
325i O0e01S4 O40S1E O46102 020105 
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/READING RBUF DID NOT CLEAR RCVR DONE/ 


/RCVR INTERRUPTS WITH ENABLE CLEAR/ 


/RCVR INTERRUPTS AT PRIORITY 7/ 


/RCVR INT RQST PASSED WITH ENABLE CLEAR / 


/RCVR DID NOT INTERRUPT / 


/RCOVR RE-INTERRUPTED/ 


“READING RSUF DID NOT CLEAR INTERRUPT ~ 


“RESET DID NOT CLEAR RCVR INTERRUPT“ 


/*OR' FLAG DID NOT SET- 
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/*ERROR’ NOT SET WITH *OR’ FLAG/ 


/BREAK DID NOT XMIT ALL ZEROES” 
/BREAK DID NOT SET *FR* ERROR/ 


“DATA COMPARE ERROR/ 


‘DATA COMPARE ERROR WITH CASLE/ 


/TIMEOUT IN EXERCISER TEST/ 


ZINCORRECT RECEIVE COUNT/ 


/DATA COMPARE ERROR IN EXERCISER’ 


“TRAP CATCHER/ 


“NO CLK INTERRUPT IN EXERCISER/ 


“ERROR” NOT SET WITH “FR” FLAG/ 


ARCY ACTIVE NOT CLEAR WITH INIT/ 
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EM116: 


EM117: 


DH1: 


DHe: 


DHE: 


DH7: 


DH10: 


DH4O: 


DHS3: 


DH103: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


NO? 


PAGE: 


/RCV ACTIVE WITHOUT “START” BIT/ 


/RDR ENABLE NOT CLEAR WITH RCV ACTIVE” 


/TEST# 


‘TESTS 


‘TEST# 


/TEST® 


“TESTS 


/TEST# 


/TEST# 


‘TESTS 


ERROR& 


ERR PC 


ERR PC 


ERR PC 


ERR PC 


ERR PC 


ERR PC 


ERR PC 


TCSR/ 


TBUF / 


RCSR * 


RBUF / 


LKS/ 


GOOD BAD’ 


LKS CNT1 CNT2’ 


RCSR DATAY 


0091 


BOS 


Pace: 0092 
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DH10S: .ASCIZ -TEST# ERR PC RCSR 600d 8 


ee] 
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PR B.. 
28% 

RRR 
ai 


3420 737 
sel 921764 
77e 


2 
aun 
a8 


DH110: .ASCIZ /TESTs ERR PC RCSR TRANS RCV / 


2h 2 
Re 
8 
i 


br ar oh 
wry 
‘ 
RIB 
Ris 
BR 
ne 


022067 124 OS150S 021524 OH1i2: .ASCIZ /TEST# ERR PC RCSR OLOPC TRAP ADR’ 


. EVE! 
S44e Oee140 005015 040515 O47111 Mi: -ASCIZ <CR> LF>“MAINDEC-DZ2DL0-B 
S443 Oeel46 242504 926503 O0S5104 
O22iS4¥ O46104 026504 000102 


£ 
O22162 o0S01S Me: "AS 
3447 022164 O20040 o42040 053105 Mea: .AS 


<OR> <LF 


I > 
Z /’ DEVICES UNDER TEST 


2450 Oe2206 O51505 O2012e4 000040 


3451 

3452 LEVEN . 

2453 22214 001072 001016 002352 OTL: WORD $TESTN, SERRPC, TCSR,0 
3455 Ooeee4 001072 O01016 002254 DTz:  .WORD STESTN,SERRPC, TBUF,O 
3456 O22232 000000 i 
3457 22234 001072 O01016 D023 OTe: WORD. STESTN, SERRPC,RCSR.C 
3426 OS2244 001072 OOI016 002350 DT7: WORD STESTN, SERRPC, RSUF,0 
3460 22252 900000 
3461 022254 001072 O01016 O02406 OT10: .WORD STESTN,SERRPC,LKS,O 
462 O22262 0000 


ee pesces tag oie 001020 OT40: .WORD STESTN,SERRPC,$GDADR,$S0A0R,0 

S465 O22276 001072 001016 O02406 O7TS3: .WORD STESTN,SERRPC,LKS,FIRST,SECND,O 
34E7 nS5312 ois7e Sbibi6 002346 OT103: .WORD S$TESTN,SERRPC,RCSR,$B00AT.C 

S469 Oee3e4 00107e Bo1D16 002346 OTi0S: .WORD $TESTN,SERRPC,RCSR,S$GDDAT, $8007 ,2 
2471 see3i6 001072 poigie 002346 OT110: .WORD $TESTN, SERRPC,RCSR,XMTCNT,RCVONT,O 


3473 022354 001072 O01016 902346 CTL12: .WORD $TESTN,SERRPC,RCSR,OLOPC,BDVECT,O 
2474 O22362 012200 012302 9000000 
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ABASE = 176500 11982320273 
acd = 000000 232 
ACDWS = 909000 232 A 
AcPuOP= 000000 e320 Ow? 
adbwO = 000000 232 
aDDW1 = 000000 232 
ADDW1O= 000000 232 
ADDW1i= 900000 232 
ADDW12= 900000 232 
ADDWi3= 900000 232 
RODW14= 900000 232 
ADDWIS= 000000 232 
ADDW2 = 000000 232 
ADDWS = 232 
aDDWwY = 000000 232 
adDWS = 000000 232 
ADOwWe = 000090 232 
adDW7 = 000000 232 
a0DWE = 000000 232 
e00w9 = 900000 332 
aDEVCT= 900000 2322238 
aDEVM = 900000 332 74 
003562 892 899 
AORTBL 002414 72ie 8672794 
RENV = OOO000 232243 
RENVN = 000000 235 B44 
AFATAL= 000000 232 38 
AMADRI= 000000 2322280 
AMADRE= 900000 232264 
AMADR3= 000000 2322 B67 
AMADRY= 000000 2322 a70 
AMAMSI= 000000 2350 ES 
aMAmMSe= 909000 2322 62 
AMAMS3= 000000 2322S 
aMaMS¥= 232 2 ke 
AMSGAD= 000000 232 BH 
= 000000 e324] 
aMSGTY= 900000 2320 34 
aMTYP1= 000090 2320 ett 
aMTYPe= 000000 2320 
aMTYP3= 000000 e320 ake 
aMTYP4= 009000 232 29 
APASS = Q00000 2322 a7 
PPRIOR= QO0000 232 
RPTCSU= 900040 25378 257 ; 
APTENY= 000001 2313. e492 2535" = 2863 
APTSIZ= 000206 789—CieSHe 
RPTSPO= 000100 2494 = 53t8 = 255 
RPTS70 003266 oo O2 ora 
SWREG= O00000 2320 24s 
GTESTN= 000000 e320 83 
euNIT = 900000 e322 23 


000400 leis ese e 
ase 06030 1208 ese 271 
ByecTe= 90005 ge Ere 
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BITO = 000001 
81700 = 000001 
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BITOe = O00004 
BIT03 = 000010 
BITO4 = 000020 
BiTOS = 900040 
BiTO& = 000190 
BiTo? = 000e90 
S8I708 = 0004 
BITOS = 001000 
EITl = 000002 
BiTio = 000 
BIT11 = 904000 
BiTle = 010000 
8iTi3s = 0200 
BIT14 = 040000 
BiTiS = 100000 
BiTe = 000CO4 
BIT3 = 900010 
SivTs = Q0C0e0 
BITS = 900040 
BITé = 000100 
SIT? = 000200 
SITs = 000400 
BITS = 001000 
BPY = 900003 
BPTVEC= 90001 
BUF 11742 
CATC 012254 
CKSWR = 104406 
LK 11720 
LKCNT 011732 
CMPARE 6536 
me 011560 
co OSS&E 
CONT4: 010724 
cr = 900015 
2REUF 002370 
CRCSE 002366 
oRLF 005280 
CRPSW 002400 
CRYECT O0e37& 
Ter = 06374 
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1993 20008 
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7088 2894 2295 
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7ile 
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268 21s 777 

7278 804 835 
23s 305 310 
386 38S 390 
330 425 430 
490 495 500 
626 34158 
536 641 &5& 
651 34278 
661 34348 
300 33878 
450 34038 
sos 34088 
320 400 405 
580 58s 530 
681 586 3391 
225 33958 
21Ss 777% 785% 
1458 735 
oss 214 77 
296 306 ail 
381 386 331 
331 426 431 
49] 496 501 
627 34678 
637 bet 657 
6Se 34718 
6&2 34738 
201 34558 
451 34638 
S06 S4ESs 
321 401 406 
581 586 S31 
£82 687 3457 
326 34598 
833 835 
isd esse 2918 
1ll4s 7bl* 7b2 
24 9748 
229 30068 
£09 32388 
615 32048 
620 33088 
625 33148 
£30 32138 
635 33248 
640 23288 
B45 32328 
234 30108 
£50 32388 
ess 33428 
£60 Z34Ee 
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343 
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rw 
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EM113  Qelell 6$S 33518 
EM114 OQ21247 &7 33578 
£M115 Q21306 675 33638 
EM11 021345 £80 33698 
EM117 = O21404 $85 33758 
EMl2 015620 3393 30168 
EM] 0iS6S1 344 30218 
EM14 015704 349 30268 
emis O1s74s5 354 30328 
EMILE 016010 353 30388 
EM17 0i604: 364 30438 
EMe 015312 233 29788 
EM2O 516074 369 30488 
EMel 016135 374 30548 
EM22 016201 3793 30618 
EMe3 016236 384 30668 
EMeY 016267 389 30718 
M2s Cl6322 334 30768 
EMeE 016363 333 30828 
EMe? 016426 404 30888 
EM3 015336 304 29828 
EM30 Ole4é5 409 20948 
EMS] O16S516 414 30992 
EM3e 0isSS1 419 3104s 
EM32 016617 424 3llls 
EM24 016661 429 31178 
EMoS D16717 434 31238 
EM36 016747 439 31c88 
EM37 017001 wes 31338 
EM4 015403 303 29898 
EMSO O1794i sas 31398 
EMG] 017087 44 314348 
EMYS 017127 459 31498 
EM43 017161 454 31548 
EMay Ol72le 469 31598 
EMyS C1724 474 3164s 
EM4E 017303 47 31708 
EM47 01730 —os 31698 
EMS 015425 314 29938 
EMSO 017337 489 31758 
EMs1 Oi7364 494 21738 
EMSe 017414 499 31838 
Emc3 017471 SO4 31918 
EMS4 017515 509 31958 
EMSS O17ES3 C14 32138 
EMSE 017553 519 3201 
EMS7 017611 S24 32078 
EME Ols46e 3193 2998s 
EMEC 017653 623 32148 
EME! 017702 534 3ci8s 
EMee 017726 £33 322e8 
EMES 017773 a4 32238 
EMES 020017 c49 32238 
EMES CelO43 cs4 32237% 
EMEE 020131 5s3 3c448 
EME? 025147 564 32508 
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ENT, OL5506 324 3002s 

Ney Sena ee) eta 

Emre = 020426 S79 32828 

Emr3 © 020321 584 32698 

Emr4 =: 020357 $89 = 32758 

EM?S =: 20426 534 32838 

ENTE O4s5 599 32878 

EM?? O50} 604 32918 

ENDEV 012052 2187 2c18# 

ENDMG §=01217 2e45 = 22588 | 

ERRVEC= 000004 1o7e = 774 775% BGR BUS2 BUSH HSS*® «= DHS B# 

FIRST 006600 147 «1549 = 15638 = 3465 r : 

GNS = #4eEEE LU 2971 872 486287374) = 2B7Hs2G7Bs2B7S 2980 

SORGIN 012206 2255 Bob 18 

GTSWR = 104405 28768 

HT == 000011 178 «2578 2815 

1D 004056 796 77 984 9928 

INIT = O03} 2 7340 7978 

IOTVEC= 000020 1128 759% = 760% . 

LF ==: OOGD1e 188 2258 13 2619 2939 2932 2994 2936 3442 

LES B0e40& 7178 «12043 te64)=—Ssde7ue «= se7S Ss i28i# §=6l282 )=s Lege «= 1288 
1353 1354 1360 1382 1383* 1384 139% 1396 1405* 
1438* 1439 1456# 14973% LY74e = 1475 148l# 502% 1503 

, 1535" 1536 1538 1539 1542# eleS* S461 3465 

MAN, 003132 7980s BO # 

MFR 015145 29068 «= 29328 

MO 015157 2911 = 29348 

MPAR 015134 2901 29308 

MSG s«15106 e900 «= 8905S) S10 2915 = aS2iw §=6—2960 

MSTOP 915172 2916 «= 29368 

Mi 022149 999 34428 

Me 022162 1001 34468 

MCA = O22 164 S66 34478 

OLDPC. 012300 2280# 22848 3473 

OUTTST O1S20¢2 iS] 29528 2966 2971 

PIRQG = 177772 o4e 

PIRGVE= 900240 1188 

PRO == -000000 ie 

PR == QO0040 428 

PRo == 000109 43% 

PR3 = 000140 448 

PRY = 000200 45% 

PRS == 000040 46% 

PRE = 009300 474 

PR? == 000349 4ee 

PS = 177775 218 © 22 

POW == i7777E 228 

FWRYEC= 000064 lige = 765# «= 7BG* «= 2391 «62392 «=eHOle# «= b409# §=— 418% = 419 

REUF = 002350 A a Cc i ee 

RCSF 202346 6968 876 895 10930 1198 1208 1209 1215* 1216 
1700 «= 1710 1718S 17288 )=s 1733s Oe O1PH9e «17521784 
1790# 461797 1808* §=«618l4* 1831 19338 1841# 1869 18728 
i3ge# 1905 1SNie 1987 1352 edel e080 eRe 128s 
oars 


mu 
© 
fu 


Comm 


(er 
4-0-3%U 


rye 
ry 8) 


* Che 


HOS 
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RCV 11704 2117 1998 
ReVONT OL17 2130% siq3 2200% e207" 347) 
ROCHR = 104407 2811 28798 
Resvec= GO0010 toes 
Ree poe 38 malt 1S8s 1864% 1885* 2113 2118*  2195% 
RTCPSW O0e4i12 7198 = =61379 1381% 416% 1432 1434% 1458% 2114 2ele4*  2186% N 
RTCVT 002410 7188 1260 1261* 1293* 1378 1380 13938 1404* 141S* 1431 1433* 446s 
RVECT 002356 Wik, dTgG" TTSCE 13oce «398° 305s adhe feiss Tee?) 1900e even 1983s 
1963 1879 i884 1891* i901 1902 1919 1930 1931 1948 2110 2ii7# 
ScPSW Ss 11740 2ll4* 2186 22128 
te OO0&65e2 1SS&* 15648 3465 
SETADR 003530 8g 830 
S 00337 gsés 8&5 
SIZ 0023142 8048 
SRPSW = 011736 2113# 2185 22:18 
Stack = 001100 28 
T O0eS46 149 7398 
2+fe))"* 4 toSq 21138 2184 2210 
STPSW 9117 + 2 
SWR 001040 2i4e a, Ag RAL a oa" cee ed +008 1068 1239 1257 
4 1374 l4e 67 Se } 955 291 edis 2v72 
bie6 2308 2320 2324 2333 e4il# 2447 2463 2708 274S# 
SWREG OO00176 1468 784 2708 272) 
SWo = coon: 758 
SWOO = Q90001 668 76 
SwOi = 000002 css 75 
SWwoe += 900004 64s 74 
SwO3 = 900010 638 73 
SWO4 = 000020 628 72 
SWOS = O00040 bls 71 
SWO& = 900100 608 70 
SwWO7 == 000200 cos £3 
SWO8 = O00400 58s ¢g 
swOS = 001000 c78 67 
Ski =6©= 900002 758 
SWid = O0e000 sts 
SWil = 004000 sce 
SWig = 010000 S48 
SWi3 = 020000 S328 
SWwi4 = 040000 Ses 
SWwiS = 100300 Sis 
SWe = 000004 74% 
sW3 = = 000010 738 
sWw4 = 000020 728 
SWS = 900040 718 
SWE = =: 000100 708 
SW? Ss = OCOLOO 698 
SWE == 900400 bes 
SWw3. = 001000 678 
TBITVE= 900014 109 . 7 sm ae a 
TELF 002254 639 939 358+ Q63# 10118 1014# 16678 16708 16908 i?lrv# I L7Sle = leche 
ee hen 155E+ 199S*# 1 1934* 1960% 9862 2020# 2049" 2080e 21a4e 2195* 3455 
CLOCK 6DOSOSE 1004 ie2cs 
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TCON o034 7 748 

+308 uce 2 £o8e a3 9s9 364 976 10le 1017 1062 1074# 1075 1080# i08i 1032 
ids4 1096# 1105 1118% 1119 L124 1125 1137* 1139 ll4¥e# 1158 Ll66# 1167 
1173% li? 1179% 1181 1S71% 1574 1584* 1589 159€* 1603 1605+# l6le# lee9+ 
1636 1638% 1648% 1661*  1666% 1668 1674 1688* 1695* 1706# 17138 \7ec# 17284 
1736% 17S0% 1762% 1773% 1778% 1789% 1791%  1799% 1802% 1810% 181S# 1g294 i83&* 
1846% 1849% 1867% 187 1% 1904# 1908 1933% 1958* 1961 196S+# 1985s 19904 1997+ 
2002 2006% 2018 2019% 2023 2044 2061% e2064* eleb* e212e7# 2141 2193# 3453 

were Sposaa ait 870% 886+ 892 893+ 

TMP 3 ( 

TMP2 002342 6328 g0S* 2 823% 827% 831# 851 2220 2262 

TMP 002344 $938 869% 883 gss# 891* 

TOLER QO065S0 1551 15538 

TPSW 002364 7038 78 1631 1633* 1655* e2lle 2llg* 2184s 

TPVEC = OOCDE4 1178 

T = 000034 1158 753% 764% 

TRIVEC= 000014 1108 . 

TSTDEV 003500 873 883% 888 ece3 

TSTOVM O03275 8298 834 

TST 3622 880 906 9148 2265 

TSTiG }8 GO4424 11038 

TST12 9904S? 1061 109 11508 

TSTle  O04724 1140 11928 

TST13 QOSCE4 12368 

TST24 905134 1238 1240 12548 

TSTiS § O05304 2s 1258 12998 

TST16 905474 13398 

TST17? QOS60e 1341 1343 1361 13718 

TSTe 003674 9368 

TST20 006020 1373 137 14258 

TST21  OO681S6 1427 1429 14648 

TSTe2 O06302 1466 1468 14938 

TST2e3 906430 1495 1497 15258 - 

TSTe4 OO&604 1Se7 1529 S 1S7Oe 

rSTeS OCb704 {S978 

TST2e& OO7016 16288 

TST27 007144 16608 

TST3 003746 c78 

TST30 © 00725C 16868 

TS731 007470 1741 17478 

TST32 OO756 1761 17718 

TST33 Q0762e6 1780 17888 

TST34 007775 18238 

rs73S =: 010140 859s 

TST36 O10306 18978 

TST37 10422 19268 

TST4 004126 383 1003 10108 

TST4O 010536 19548 

TST41 O10626 1956 19818 

TST4e bea 1983 eOles 

TST43 11054 2014 Olé 20408 

ST44 011154 20718 

TST4¢ QlleSe 2073 2c34 2105s 

TSTs Co4iée2 10i8 10278 

STs O04214 10418 

TST? DO4246 10598 
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e0be 1311% 
208%  1992% 
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SRODEC= eexexe 28 

SR ai 014S32 tne 2880 

SRDOOCT= #2222 U 2881 

$ROSZ = 00001 28008 

SRTNAD 012164 22sss 

$R2A = eeRERE LJ 2881 

SSAVRE= xe2xe2e U 2881 
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S$SKIP 1198 
-£QU8" 9s 
- SETI =a 142 
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